Файлы. Обработка матрицы.

Program Vvedenie;
uses crt;
const n=6;
      m=8;
type Tmas=array [1..n] of integer;
     Tmatr=array [1..m] of Tmas;
var a:Tmatr;
    j,k:byte;
    f:file of integer;
procedure Vvod(var mt:Tmatr);
var i,j:byte;
begin
for j:=1 to m do
for i:=1 to n do
mt[j,i]:=random(5);
for i:=1 to n do
  begin
   for j:=1 to m do
   write(mt[j,i]:3);
   writeln;
  end;
end;
procedure VV(ms:Tmas);
var i:byte;
begin
for i:=1 to n do
write(f,ms[i]);
end;
 
Begin
clrscr;
randomize;
 assign(f,'ml2');
 writeln('Ishodnaya matrix:');
 writeln;
 rewrite(f);
Vvod(a);
writeln;
for j:=1 to m do
  begin
    VV(a[j]);
  end;
readln
end.

program 2;
const n=6;
      m=8;
type Tmas=array[1..n] of integer;
     Tmatr=array[1..m] of Tmas;
{готовимся к обработке через процедуру}
var  i,j,k:byte;
     f:file of integer;
     a:tmatr;{создаём массив для записи из файла в нашу программу}
procedure Kolel(ms:Tmas;var kl:byte);
var i:byte;
begin
kl:=0;
for i:=1 to n do
if ms[i]<>ms[n] then
kl:=kl+1;
end;
{процедура для обработки}
Begin
assign(f,'ml2');reset(f);{связываем файл с программой и открываем его}
for i:=1 to n do 
  begin
    for j:=1 to m do
      read(f,a[j,i]);{читаем и записываем в массив а}
      Kolel(a[j],k);
      writeln('V stolbce ',i,' k=',k);
end;
readln;
End.