процедуры и функции

[seyf]

почему у меня значения mi выводятся все нули?
или у меня файл не открывается?
Program Lab7;
uses crt;
type
matr =array[1..3,1..3] of real;
function min(X:matr;m,n:integer):real;
var stmin:real;
i,j:integer;
begin
for j:= 1 to n do
begin
stmin:=X[1,j];
for i:=1 to m do
if x[i,j]<stmin then
stmin:= x[i,j];
end;end;
procedure input(var Y:matr;m,n:integer;L:string);
var i,j:integer; d:text;
begin
assign(d,l);
reset(d);
readln(d);
for i:=1 to m do
for j:=1 to n do read(d,y[i,j]);
close(d);
end;
var mi :array[1..4] of real ;i:integer;
la,lb,lc,ld:matr;
begin input(la,2,2,'La.pas');
input(lb,2,2,'Lb.pas');
input(lc,3,3,'LC.pas') ;
input(ld,3,3,'LD.pas') ;
mi[1]:=min(la,2,2);
mi[2]:=min(lb,2,2);
mi[3]:=min(lc,3,3);
mi[4]:=min(ld,3,3);
writeln('ìèíèìàëüíîå çíà÷åíèå ñòîëáöîâ ìàòðèö');
for i:= 1 to 4 do write(Mi[i]:5:2);
writeln;
end.

[seyf]

вот задание само:Найти минимальное значение среди первых элементов столбцов каждой из матриц A, B , C, D и напечатать их в порядке убывания. Вычисление минимального элемента оформить в виде подпрограммы - функции.