Матрица, процедуры, функции.

uses crt;
const nmax=50;{макс размер матриц}
type matr=array[1..nmax,1..nmax] of real;{тип матриц}
procedure Vvod(var mt:matr;var x:byte;c:char);{создание матриц и вывод на экран}
var i,j:integer;
begin
repeat
write('Размер матрицы ',c,'=');
readln(x);
until x in [1..nmax];
writeln('Матрица ',c);
for i:=1 to x do
 begin
  for j:=1 to x do
   begin
    mt[i,j]:=10*random;
    write(mt[i,j]:5:2);
   end;
  writeln;
 end;
end;
procedure Min(mt:matr;x:byte;var mn:real;var imn:byte);{нахождение мин и его номера на главной диагонали}
var i:byte;
begin
mn:=mt[1,1];imn:=1;
for i:=1 to x do
if mt[i,i]<mn then
 begin
  mn:=mt[i,i];
  imn:=i;
 end;
writeln('Минимальный на главной=',mn:0:2,'  номер=',imn);
end;
function Vf(i1,i2:byte;mn1,mn2:real):real;{функция по условию}
begin
Vf:=(mn1+mn2)/(i1*i2);
end;
procedure Vp(i1,i2:byte;mn1,mn2:real;var res:real);{то же, процедура}
begin
res:=(mn1+mn2)/(i1*i2);
end;
var a,b:matr;{матрицы}
    xa,xb:byte;{размеры матриц}
    na,nb:byte;{номера минимальных}
    da,db:real;{значения минимальных}
    r:real;{переменная для передачи результата из процедуры в программу}
begin
clrscr;
randomize;
Vvod(a,xa,'A');
Min(a,xa,da,na);
Vvod(b,xb,'B');
Min(b,xb,db,nb);
writeln('С использованием функции:');
writeln('V=',Vf(na,nb,da,db):0:5);
writeln;
writeln('С использованием процедуры:');
Vp(na,nb,da,db,r);
writeln('V=',r:0:5);
readln
end.