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

[allegri]

нужно написать программу для поиска мах елемента матрицы А(4,3), где считывание и выведение матрицы организовано с помощью процедур или ф-ций.

Program lab;
uses crt;
type
TMatrix:array[1..4,1..3) of integer;
procedure ReadMatrix(M:TMatrix);
var
i,j:integer;
begin
for i:=1 to 4 do
for j:=1 to 3 do
readln(M[i,j]);
end;
procedure WriteMatrix(M:TMatrix);
var
i,j:integer;
begin
for i:=1 to 4 do
begin
for j:=1 to 3 do
write(M[i,j],' ');
writeln;
end;
end;
var
function FindMax(M:TMatrix):integer;
var
i,j,temp:integer;
begin
temp:=M[1,1];
for i:=1 to 4 do
for j:=1 to 3 do
if temp<M[i,j] then temp:=M[i,j];
FindMax:=temp;
end;
var
A:TMatrix;
max:integer;
begin
clrscr;
ReadMatrix(A);
clrscr;
WriteMatrix(A);
Writeln;
Writeln('Max element=',FindMax);
readkey;
end.

Но из того, что я написала, матрица всегда состоит из одних нулей..
Буду очень благодарна за помощь!

[Valio]

А если везде дописать var....

procedure WriteMatrix(var M:TMatrix);

[allegri]

Valio
Большое спасибо!.