В делфи точно, а в паскале вроде тоже есть функция EOLN (конец строки, заменяет твои #10#13), дак вот:
Код:
var i: integer;
a: array[0..255] of string; // массив строк (можно сделать динамическим)
...
i:=0;
While(not(EOF(F1)) and (not(EOLN(F1)) do begin
readln(f1, a[i]);
inc(i); // i:=i+1;
end;
end;
// Теперь все строки мы записали из файла 1 в массив. Можем тупо сравнить все строки в массиве... думаю как сам поймешь, если не поймешь - напишу.