Задача на файлы в паскале

[caspeg]

Сам считаю вот что нужно сделать:
3начит открыть эти 2 файла, сравнить; если их содержимое совпадает, то пишем "совпадает", если нет то указываем номер несовпадающего элемента.
Я правильно понимаю? Кто может помочь с кодом?

[Stilet]

Верно. Компонент файла в данном задании - символ.

[caspeg]

ммм а что это значит?

[alex_fcsm]

Заводите счетчик считанных символов
В цикле пока не закончится файл считываете по символу из одного и другого файлов, если символы совпадают то считываете дальше, увеличивая счетчик, если не совпадают выдаете значение счетчика

[caspeg]

Как-то так получается? Исправте если ошибаюсь..

program CpaBHeHue;
    var f1,f2:file of char;
    n,i:integer;
   begin
   assign (f1,'C:\F1.txt');
   assign (f2,'C:\F2.txt');
   reset(f1);
   reset(f2);
   n:=0;
   while not eof(f1) do begin
   readln(f1);
   n:=n+1;
   end;
   n:=0;
   while not eof(f2) do begin
   readln (f2);
   i:=n+1;
   close (f1);
   close (f2);
   if i<>n then writeln (значение счетчика,'n') else readln(f1) and readln(f2);
   end;
   readln;
   end.

Код форматируем специальным тегом или кнопкой #, иначе последует наказание!

[alex_fcsm]

Компилировать пробывали?)
Чтение файлов должно идти параллельно

var c1,c2:char;
    flag:boolean;

n:=0;flag:=true;
 while (not(eof(f1)))and(not(eof(f2))) do
   begin
    read(f1,c1);
    read(f2,c2);
   if c1<>c2 then flag:=false
    else inc(n);
   end;
close(f1);close(f2);
 if flag then writeln('Same')
    else writeln('Only ',n,' components are same');

Это фрагмент, дальше доделайте сами

[caspeg]

Спасибо, разобрался вроде...вот что получилось:

var f1,f2:file of char;
    c1,c2:char;
    flag:boolean;
n:integer;
   begin
   assign (f1,'f1.txt');
   assign (f2,'f2.txt');
   reset(f1);
   reset(f2);

n:=0;
flag:=true;
 while (not(eof(f1)))and(not(eof(f2))) do
   begin
    read(f1,c1);
    read(f2,c2);
   if c1<>c2 then flag:=false
    else n:=n+1;
   end;
close(f1);
close(f2);
 if flag then writeln('pohoji')
    else writeln('Sovpadayushix elementov:',n);
readln;
end.

Работает.