Обработка файлов. Типизированные файлы

[Кутяшка]

Помогите с концовкой...
Нужно создать условия и вывод.

Даны целочисленные файлы f и g. Определите, совпадают ли компоненты файла f с компонентами файла g. Получите

номер первой компоненты, в которой файлы f и g отличаются между собой. В случае, когда один из файлов имеет n

компонент ( n>=0 ) и повторяет начало другого (более длинного) файла, ответом должно быть число n+1.

program L_11;
var 
  f, g: file of integer; 
  n, m: integer; 
  i: integer; 
  x, y: integer;
begin
  Assign(f, 'l.dat'); Assign(g, 'l1.dat');
  rewrite(f);
  for i := 0 to n do
  begin
    read(x);
    write(f, x);
  end;
  close(f);

  rewrite(g);
  for i := 0 to m do
  begin
    read(y);
    write(g, y);
  end;
  close(g);

  reset(f); reset(g);

  i := 0;

  repeat
    read(f, x); read(g, y); inc(i);

  until (eof(f)) or (eof(g)) or (x <> y);


end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

я позволил себе ещё отформатировать ваш код....

[Vanta11a]

Ну ииии? Добавьте после until

writeln('Номер отличающегося элемента = ',i);

[Serge_Bliznykov]

для начала.
Если Вы хотите создавать файлы (а я бы не делал это в вашей программе и создание файлов вынес в отдельную процедуру или, лучше, в отдельную программу), то, по крайней мере, делайте это правильно!!

var 
  f, g: file of integer; 
  n, m: integer; 
....
for i := 0 to n do
  begin
    read(x);
    write(f, x);
  end;
  close(f);

  rewrite(g);  
  for i := 0 to m do
...

Постарайтесь угадать, чему равны переменные n и m (выделенные мною в вашем коде)...

Для начала создайте файлы корректно, тогда будет повод для дальнейшего разговора.

[Serge_Bliznykov]

Что, я задал невыполнимую задачу?!...

ладно.
теперь по сути вопроса.
лично я для решения поставленной задачи использовал примерно такой цикл:

  reset(f); reset(g);

  i := 1;
  isEqual := FileSize(f) = FileSize(g);

  while (not eof(f))  and (not eof(g))   do begin
    read(f, x); read(g, y); 
    if x<>y then begin
      isEqual := false;
      Break
    end
    else
      inc(i);
  end;

  if isEqual 
    then 
     WriteLn('Файл идентичны')
    else 
     WriteLn('Файлы отличаются в компоненте номер ',i, '  (отсчёт компонент в файле от единицы) ');

я код написал прямо в браузере, и, скорее всего, не очень оптимально (думаю, что можно обойтись без булевой переменной isEqual). Код я так же не проверял.
Но, думаю, что идея моего решения достаточно понятна, чтобы допилить код самостоятельно?

[Кутяшка]

Да, идею уловила, пойду переписывать)
Спасибо)))))

[Serge_Bliznykov]

Сообщение от Кутяшка

Да, идею уловила, пойду переписывать)
Спасибо)))))

Всегда пожалуйста.
Успехов!

Тем, кто сам пытается решить задания (а это видно по коду), на форуме всегда помогают советами и поправками!

Если возникнут вопросы в ходе решения - пишите в данную тему, вместе, всем миром разберёмся!