Курсовая работа: Эмуляция командного процессора ОС UNIX в среде Windows 9x

s2 := #0;

if not EOF(f1) then

ReadLn(f1, s1);

if not EOF(f2) then

ReadLn(f2, s2);

r := r + 1;

if s1 <> s2 then

begin

Write(r, ' ');

c := Compare(s1, s2);

if c > 80 then

WriteLn('c')

else

WriteLn('d');

WriteLn('<', s1);

if c > 80 then

WriteLn('----')

else

WriteLn(r, ' a');

WriteLn('>', s2);

end;

if EOF(f1) and not EOF(f2) then

begin

WriteLn('Второй файл длинее первого!');

Break;

end;

if EOF(f2) and not EOF(f1) then

begin

WriteLn('Первый файл длинее второго!');