Текстовые файлы

[Слава Кандратьев]

написать программу сравнения двух файлов: должна печататься первая строка, в которой они различаются .Если файлы идентичны, то выдать сообщение

[whatever]

var
  T,S:text;
  str1,str2:string;
  dif:boolean;
begin
  assign(T,'C:\1.txt');
  assign(S,'C:\1_copy.txt');
  reset(T);
  reset(S);
  dif:=false;
  while not EOF(T) do
    if not EOF(S) then
      begin
        str1:='';
        str2:='';
        readln(T,str1);
        readln(S,str2);
        if str1<>str2 then
          begin
            dif:=true;
            break;
          end;
      end
    else
      begin
        dif:=true;
        break;
      end;
  if eof(T) and (not eof(S)) then
    dif:=true;
  close(T);
  close(S);
  if dif then
    writeln('файлы разные  dif')
  else
    writeln('файлы одинаковые  no_dif');
  readln;

end.

Про различающиеся строчки думай сам