Сравнение двух текстовых файлов

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var
  s1,s2:string;
  f1,f2:text;
  i,j:integer;
  t:real;
begin
  writeln('*-strings of real config');
  i:=0;
  j:=0;
  s1:='';
  s2:='';
  assignfile(f1,'config.txt');     // это стандартный конфиг игры
  assignfile(f2,'config(2).txt');  // это конфиг с сайта
  reset(f1);
  reset(f2);
  while not eof(f2) do
    begin
      readln(f1,s1);
      readln(f2,s2);
      inc(i);                          // счетчик всех строк
      if s1<>s2
        then
          begin
            writeln(I,'.  ',s1,'*');
            writeln(I,'.  ',s2);
            writeln('__________________');
            s1:='';
            s2:=''
          end
        else
          begin
            inc(j);                //счетчик совпавших строк
            s1:='';
            s2:=''
          end
    end;
  close(f1);
  close(f2);
  t:=(j/i)*100;
  writeln('Persentage=',t:0:3,'%');// процент совпадения
  writeln('String quantiy=',i);
  writeln('Equal strings=',j);
  readln
end.