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

Var f1,f2,g:text;
    s1,s2:string;
Begin
    Assign(f1,'in1.txt');Reset(f1);
    Assign(f2,'in2.txt');Reset(f2);
    Assign(g,'out.txt');Reset(g);
    writeln('Первый файл');
    While not Eof(f1) do
    Begin
      readln(f1,s1);
      writeln(s1);
    End;
    writeln('Второй файл');
    While not Eof(f2) do
    Begin
      readln(f2,s1);
      writeln(s1);
    End;
    Close(f1);Close(f2);
    Reset(f1);Reset(f2);
    While (not eof(f1))and(not eof(f2)) do
    Begin
      readln(f1,s1);
      readln(f2,s2);
      if s1=s2 then writeln(g,s2);
    End;
    Close(g);Reset(g);
    if not eof(g) then writeln('Результатирующий файл пуст')
     else
     Begin
       writeln('Результатирующий файл');
       While not Eof(g) do
       Begin
         readln(g,s1);
         writeln(s1);
       End;
     End;
    Close(f1);Close(f2);Close(g);
End.