Сформировать матрицу A(N,M) (N<=10, M<=15). Записать в файл F суммы первого и последнего элементов в каждом столбце матрицы

[qwerty2106]

Помогите исправить программу.
Ошибка времени выполнения.

Сформировать матрицу A(N,M) (N<=10, M<=15). Записать в файл F суммы первого и последнего элементов в каждом столбце матрицы. Найти минимальное значение в файле. Если минимум – положи-тельное число, то записать его вместо каждой второй компоненты файла. Файл распечатать.

Var a:array [1..10,1..15] of integer;
f:file of integer;
S,i,j,n,m:integer;
b,min,p:integer;

Begin
 Write('число строк от 1 до 10 N=');
 readln(N);
 Write('число столбцов от 1 до 15 M=');
 readln(M);
 for i:=1 to n do
  for j:=1 to m do
   begin
   write('a[', i, ',', j, ']=');
readLn(a[i,j]);
   end;
 writeln('матрица:');  
 for i:=1 to n do
  begin
   for j:=1 to m do
    write(a[i,j],'   ');
   writeln; 
  end;  
  

assign(F,'F.dat');
rewrite(F);
j:=1;
while j<m do
begin

S:=a[1,j]+a[n,j];
write (F,S);
j:=j+1;
write (F,S);
end;
close (f);

reset(F);
read(F,b);
min:=b;
while not eof(F) do
begin
read(F,b);
if b<min then
min:=b;
end;
close(f);
writeln('min=',min);

reset(F);
while NOT EOF(F) do
begin
read(F,b);
if min>0 then
begin
p:=filepos(F);
seek(F,p-2);
write(F,min);
end;
end;
close(F);


reset(F);
while NOT EOF(F) do
begin
read(F,b);
writeln(b);
end;
close(F);

end.

[Stilet]

program Project1;

Var a:array [1..10,1..15] of integer;
f:file of integer;
S,i,j,n,m:integer;
b,min,p:integer;

Begin
 Write('число строк от 1 до 10 N=');    readln(N);
 Write('число столбцов от 1 до 15 M='); readln(M);
 for i:=1 to n do
  for j:=1 to m do     begin
   write('a[', i, ',', j, ']=');
    readLn(a[i,j]);
   end;

 writeln('матрица:');
 for i:=1 to n do   begin
   for j:=1 to m do  write(a[i,j],'   ');
   writeln;
  end;

assign(F,'F.dat');
rewrite(F);
 for j:=1 to m do write(f,a[1,j]+a[n,j]);
close(F);

end.

Устраивает?