Матрица в паскаль

[Demon_en]

Даны матрицы А(3,5), В(5,2), С(4,6). В каждой матрице определить местоположение максимального элемента. Ввод матрицы, поиск местоположения максимального элемента оформить как отдельные подпрограммы.
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
не могу придумать как дальше писать код, помогите ребят... вот мои наработки:

Program ;
uses crt;
var
x : array [1..3,1..5] of integer;
b : array [1..5,1..2] of integer;
c : array [1..34,1..6] of integer;
n,i,j:integer;
result: real;
begin

writeln('Laba N5:');
for i:=1 to 3 do {vvod massiva}
begin
for j:=1 to 5 do
begin
write('x[',i,j,']',' ');
readln(x[i,j]);
end;
end;
writeln;
for i:=1 to 3 do {vyvod massiva}
begin
for j:=1 to 5 do
write(x[i,j],' ');
writeln;
end;
writeln;



for i:=1 to 5 do {vvod massiva}
begin
for j:=1 to 2 do
begin
write('b[',i,j,']',' ');
readln(b[i,j]);
end;
end;
writeln;
for i:=1 to 5 do {vyvod massiva}
begin
for j:=1 to 2 do
write(b[i,j],' ');
writeln;
end;


writeln;

for i:=1 to 4 do {vvod massiva}
begin
for j:=1 to 6 do
begin
write('c[',i,j,']',' ');
readln (c[i,j]);
end;
end;
writeln;
for i:=1 to 4 do {vyvod massiva}
begin
for j:=1 to 6 do
write(c[i,j],' ');
writeln;
end;

writeln;

end.