giúp mình câu này vs mn ơi viết chương trinh pascal giúp mình với nhé!!!! Cho file dulieu.txt trong ổ đĩa D chứa nội dung sau - dòng đầu tiên chứa số nguyên n - n dòng tiếp theo chứa n số nguyên

program bai_giai;
uses crt;
var f:text;
    A:array[1..10000,1..10000] of longint;
    n,i,j:longint;
begin
    clrscr;
    Assign(f,'dulieu.txt');  reset(f);
    readln(f,n);
    for i:=1 to n do
        begin
            for j:=1 to n do read(f,A[i,j]);
            readln(f);
        end;
    for i:=1 to n do
        begin
            for j:=1 to n do write(A[i,j]:5);
            writeln;
        end;
    close(f);  readln;
end.

var a,b:text;
s:integer;

begin
assign(a,'number.txt');
assign(b,'KQ.txt');
reset(a);
rewrite(b);
while not eof(a) do
begin
read(a,s);
if s mod 3 =0 then
writeln(b,'s=',s,s:3);
end;
close(a);
close(b);
readln
end.