Question

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

Answer 1

var
  f:text;
  s1,s2:string;
begin
  Assign(f,'file.txt');
  Reset(f);
  while not eof(f) do
    begin
    Readln(s1);
    if not eof(f) then
      begin
      Readln(s2);
      if s1<>s2 then
        begin
        Writeln(s1);
        Writeln(s2);
        Writeln
        end
      end
    end;
  Close(f)
end.

Answer 2

и в нем же присутствуют типичные ошибки (пропущенные ; и т.п.).

Answer 3

С чего это Вы взяли, что все это нужно делать? В задании ничего подобного не сказано. что до "типичных ошибок" - это безответственное заявление с Вашей стороны. В реале за подобную наглую писанину я обычно бью по лицу, так что Вам повезло.