Типы файлов в Паскале

[hohol90]

Помогите пожалуйста...

Даны символьные файлы f и g. Определить, совпадают ли компоненты файла f с компонентами файла g. Если нет, то получить номер первой компоненты, в которой файлы f и g отличаются между собой. В случае, когда один из файлов имеет n компонент (N>=0) и повторяет начало другого (более длинного) файла, ответом должно быть число n+1.

[Stilet]

Определить, совпадают ли компоненты файла f с компонентами файла g. Если нет, то получить номер первой компоненты, в которой файлы f и g отличаются между собой.

Так подойдет?

var f,g:file of char;q,w:char;i:integer;
begin
 Assign(f,'c:\temp\q.txt');Assign(g,'c:\temp\w.txt');
 Reset(f);Reset(g);          i:=0;                q:=' '; w:=q;
 while (not Eof(f)) and (not Eof(g)) and (q=w)  do begin
  read(f,q);read(g,w);inc(i);
 end;
 if Eof(f) and eof(g) then write('file ravny') else write('file ne ravny',i:10,' komponenta');
 readln;
end.

[hohol90]

да, вполне