Сравнить 2 файла. Имя: F1.DAT и F2.DAT. Если идентичны выводить на монитор ‘Da’ иначе ‘NU’. — Pascal(Паскаль)

Program identic;
uses crt;
var f1,f2:text;
    f,g:array [1..30] of string;
    i,k1,k2:integer;
        ok:boolean;
 
begin
    clrscr;
    assign(f1,'F1.DAT'); reset(f1);
    i:=0;
    while not eof(f1) do begin
        i:=i+1;
        readln(f1,f[i]);
    end;
    k1:=i;
    close(f1);
    assign(f2,'F2.DAT'); reset(f2);
    i:=0;
    while not eof(f2) do begin
        i:=i+1;
        readln(f2,g[i]);
    end;
    k2:=i;
    close(f2);
 
    if k1<>k2 then
        writeln('Nu! Numar diferit de linii.')
    else begin
        ok:=true;
        for i:=1 to k1 do
            if f[i]<>g[i] then
                ok:=false;
    end;
        for i:=1 to k1 do begin
            writeln(f[i]);
            writeln(g[i]);
            writeln;
        end;
    if ok=false then 
        writeln('NU! Continut diferit.')
    else
        writeln('DA! Continut identic.');
end.

1
2
3

1
2
3