не могу найти ошибку в коде програвммы

unit UNIT_L8;
 interface
uses
 crt;
type
 matr=array[1..10,1..10] of real;
 
procedure vvodmatr(a:matr; var namefile:string;var m,n: integer);
procedure vivod(namefile:string; a:matr; m,n:integer; zagolovok:string; perezapis:boolean);
function podschet(a:matr; m,n:integer):integer;
 
 
 implementation
 
 
procedure vvodmatr(a:matr; var namefile:string; var m,n: integer);
var
 i,j:integer;
 fin:text;
begin
 if namefile='con' then
 begin
  Clrscr;
  write('VVediterazmernost matrici:');
 end
 else
  begin
   assign(fin,namefile);
   reset(fin);
  end;
 readln(fin,m,n);
 if namefile='con' then
  writeln('Enter the Matrix by rows:');
 for i:=1 to m do
  for j:=1 to n do
   read(fin,a[i,j]);
 if (namefile<>'con') then
  close(fin);
end;
 
procedure vivod(namefile:string; a:matr; m,n:integer; zagolovok:string; perezapis:boolean);
var
 i,j:integer;
 fout:text;
begin
  assign(fout,namefile);
  if perezapis then
  begin
   if namefile ='con' then
    clrscr;
   rewrite(fout);
  end
  else
   append(fout);
 writeln(fout,zagolovok);
 for i:=1 to m do
 begin
  for j:=1 to n do
   write(fout,a[i,j]:8:2);
  writeln(fout);
 end;
 if namefile='con' then
  readkey
 else
  close(fout);
end;
 
function podschet(a:matr; m,n:integer):integer;
var i,j,result:integer;
begin
  result:=0;
  for i:=1 to m do
    for j:=1 to n do
      if round(a[i,j])=a[i,j] then result:=result+1;
  podschet:=result;
end;
end.

program lr8_1_1;
uses
 crt,UNIT_L8;
var
 a:array[1..10,1..10] of real;
 m,n:integer;
 namefilein,namefileout:string[100];
begin
 clrscr;
 write('VVedi put k ishodnomu fiylu:');
 readln(namefilein);
 write('VVedi put k ishodnomu fiylu:');
 readln(namefileout);
 vvodmatr(a,namefilein,m,n);
 vivod(namefileout,a,m,n,'ENTER THE MATRIX!NEO',true);
 writeln('kolichestvo nat. chisel:'podschet(a,m,n));
 readln;
end.