Работа с Файлами, задачка Опции

[BoB@N]

Определить индексы нулевых элементов массива A(m,n). Элементы данного массива находятся в файле, результат поместить в другой файл.

Проблема с этим исходником в том, что в сохраняемом файле Otvet.txt значения индексов из A[m] равны значениям индексов из A[n].

Код

Program Faels;
Uses dos,crt;
var
a:array[1..100]of integer;
f,l:text;
i,j:integer;
begin
 clrscr;
 Assign(f,'d:\PASCAL\laba52.txt');
 Reset(f);
Writeln('A[m]:');
for i:=1 to 8 do
begin
 Read(f,a[i]);
 Write(' ',a[i]);
end;
Writeln;
Writeln('A[n]:');
for j:=1 to 8 do
begin
 Read(f,a[j]);
 Write(' ',a[j]);
end;
Assign(l,'d:\PASCAL\Otvet.txt');
Rewrite(l);
for i:=1 to 8 do
if a[i]=0 then
Writeln(l,'A[m]:',i);
for j:=1 to 8 do
if a[j]=0 then
Writeln(l,'A[n]:',j);
Close(l);
Readln;
end.

Сообщение отредактировано: BoB@N - 4.12.2005 21:47

[BoB@N]

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

Код

var
  f,l : text;
  i,j,n,c : integer;
begin
clrscr;
  assign(f, 'd:\PASCAL\laba52.txt');
  reset(f);
  i := 1;
  j := 1;
  while not(eof(f)) do begin
     while not(eoln(f)) do begin
        read(f,n);
        writeln('A[',i,',',j,']=',n);
        if n=0 then
         c:=j;
         inc(j);
     end;
      readln(f);
     inc(i);
     j := 1;
  end;
Assign(l,'d:\PASCAL\Otvet.txt');
Rewrite(l);
Writeln(l,c);
  close(f);
  close(l);
  readkey;
end.