Даны два текстовых файла f и g. Определить, совпадают ли компоненты файла f с компонентами файла g. Если нет, то получить номер первой строки и первого символа в этой строке, в которых файлы f и g отличаются между собой.

program asd;var  f,g:text;  t,fs,gs:string;  i,k,n:integer;  IsFilesEqual:boolean;begin  IsFilesEqual:=true;  assign(f,'fi1.txt');  assign(g,'fi2.txt');  reset(f);  reset(g);  n:=0;  while not eof(f) do    begin      if not IsFilesEqual then        break;      readln(f,fs);      readln(g,gs);      if fs<>gs then        begin          IsFilesEqual:=false;          inc(n);          if length(fs)<Length(gs) then            t:=fs          else            t:=gs;          for i:=1 to length(t) do            if fs[i]<>gs[i] then              begin                k:=i;                break;              end;        end;    end;  close(f);  close(g);  if IsFilesEqual then    writeln('Совпадают.')  else    writeln('Строка = ',n,' Позиция = ',k);  readln;end.