Работа с файлами

Program Zad;
Uses Crt;
Type
    m=array[1..5,1..5] of integer;
    F=file of m;
    h=file of integer;
Var
   a:f;
   b:h;
   k:m;
   c,i,j:integer;
begin
     assign (a,'D:\Program\Zadanie\piz.dat');
     assign (b,'D:\Program\Zadanie\priv.dat');
     rewrite(a);
     For i:=1 to 10 do
         begin
              for i:=1 to 5 do
                  for j:=1 to 5 do
                      read(k[i,j]);
                      read(a,k);
         end;
     reset(a);
     rewrite(b);
     while not eof (a) do
           begin
                read(a,k);
                c:=k[i,1];
                for i:=1 to 5 do
                    for j:=1 to 5 do
                        if k[i,j]<c
                           then
                               c:=k[i,j];
                           write(b,c);
                           write(c);
           end;
     close(a);
     close(b);
end.

Program Zad;
Uses Crt;
Type m=array[1..5,1..5] of integer;
Var a:file of m;
    b:file of integer;
    k:m;
    i,j,c,p:integer;
begin
randomize;
assign (a,'piz.dat'); //файлы в папке с программой
assign (b,'priv.dat');
rewrite(a);
For p:=1 to 10 do
 begin
  for i:=1 to 5 do
  for j:=1 to 5 do
  k[i,j]:=random(50);
//  read(k[i,j]);//не лень вводить с клавы 250 чисел?
  write(a,k); //запишем матрицу в файл
 end;
seek(a,0);//вернемся в начало файла
rewrite(b);
writeln('Файл матриц');
for p:=0 to filesize(a)-1 do
 begin
  read(a,k);
  writeln('Матрица ',p+1);
  c:=k[1,1]; //1, а не i
  for i:=1 to 5 do
   begin
    for j:=1 to 5 do
     begin
      write(k[i,j]:4);
      if k[i,j]<c then c:=k[i,j];
     end;
    writeln
   end;
  write(b,c);
  write('Нажмите Enter для продолжения');
  readln;
 end;
close(a); //все прочитали, можно закрыть файл
writeln('Файл минимальных значений матриц');
seek(b,0);
while not eof(b) do
 begin
  read(b,c);
  write(c:4)
 end;
close(b)
end.