Заменить последний столбец матрицы компонентами файла f - Turbo Pascal

Формулировка задачи:

Помогите пожалуйста, вроде сделал все правильно, а не работает. Сформулировать матрицу B(2,10) и файл f из целых чисел. Заменить последний столбец матрицы компонентами файла f (начиная с начала файла). Матрицу B распечатать.

                    Листинг программы
                
 
                        
                          
                    
program z1;
var f:file of integer;
b:array [1..2,1..10] of real;
g:array [1..10] of real;
h,l,a,n,m,c,i,j:integer;
begin
readln(n,m);
for i:=1 to n do
for j:=1 to n do
begin
writeln('b[i,j]=');
readln(b[i,j]);
end;
assign(f,'f.dat');
rewrite(f);
write('a=');
readln(a);
while a<>100 do
begin
write(f,a);
write('a=');
readln(a);
end;
close(f);
reset(f);
while not eof (f) do
begin
read(f,a);
b[i,m]:=a;
i:=i+1;
end;
close(f);
for i:=1 to n do
for j:=1 to m do
write(b[i,j]:4:2);
writeln;
end.

Решение задачи: «Заменить последний столбец матрицы компонентами файла f»

textual
                            Листинг программы 
                        
 
                        
                          
                    
const m=2; n=10; W=4; fName='ints.dat';
var
  b: array [1..m,1..n] of Integer;
  f: file of Integer;
  i, j: Integer;
begin
  Randomize;
  for i:=1 to m do for j:=1 to n do b[i,j]:=Random(100);
  WriteLn('B =');
  for i:=1 to m do begin
    for j:=1 to n do Write(b[i,j]:W); WriteLn;
  end;
  Assign(f,fName); Rewrite(f);
  Write('F =');
  for i:=1 to m+Random(10) do begin
    j:=Random(100); Write(f,j); Write(' ',j);
  end; WriteLn;
  Reset(f); for i:=1 to m do Read(f,b[i,n]);
  WriteLn('B'' =');
  for i:=1 to m do begin
    for j:=1 to n do Write(b[i,j]:W); WriteLn;
  end;
  Close(f);
end.