Giúp mình vs ạ, thank you Tệp Dulieu.txt gồm nhiều dòng, mỗi dòng chứa 1 chuỗi. Viết chương trình xử lý và ghi vào tệp Ketqua.txt trong các trường hợp sau: a. Nối các chuỗi trong tệp Dulieu.txt b. Viết hoa tất cả các kí tự có trong tệp Dulieu.txt c. Xóa tất cả các khoảng trắng của các chuỗi có trong tệp Dulieu.txt d. Thay thế tất cả các kí tự 'a' có trong tệp Dulieu.txt bằng kí tự 'A'

var f1,f2:text;
    n,i:word;
    a:array[0..10000] of string;
    st:string;
begin
    assign(f1,'Dulieu.txt');reset(f1);
    assign(f2,'Ketqua.txt');rewrite(f2);
    n:=0;
    while not(eof(f1))=true do
        begin
            inc(n);
            readln(f1,a[n]);
            write(f2,a[n]);
        end;
    for i:=1 to n do write(f2,#13#10,upcase(a[i]));
    for i:=1 to n do
        begin
            st:=a[i];
            while pos(' ',st)<>0 do delete(st,pos(' ',st),1);
            write(f2,#13#10,st);
        end;
    for i:=1 to n do
        begin
            st:=a[i];
            while pos('a',st)<>0 do st[pos('a',st)]:='A';
            write(f2,#13#10,st);
        end;
    close(f1);close(f2);
end.

program bai_giai;
var f,g:text;
    s:array[1..10000] of string;
    str:ansistring;
    st:string;
    i,d,j:integer;
begin
    Assign(f,'Dulieu.txt');  reset(f);
    Assign(g,'Ketqua.txt');  rewrite(g);
    d:=0; str:='';
    while not eof(f) do
        begin
            d:=d+1;
            readln(f,s[d]);
            str:=str+s[d];
        end;
    writeln(g,'a. ',str);
    writeln(g,'b.');
    for i:=1 to d do
        begin
            st:=s[i];
            for j:=1 to length(st) do
                st[j]:=upcase(st[j]);
            writeln(g,st);
        end;
    writeln(g,'c.');
    for i:=1 to d do
        begin
            st:=s[i];
            while pos(#32,st)<>0 do delete(st,pos(#32,st),1);
            writeln(g,st)
        end;
    writeln(g,'d.');
    for i:=1 to d do
        begin
            st:=s[i];
            for j:=1 to length(st) do
                if st[i]='a' then st[i]:='A';
            writeln(g,st);
        end;
    close(f); close(g);
end.