В каждой матрице определить местоположение максимального элемента

Program Laba7;
uses crt;
type Mx=array [1..3,1..5] of integer;
Mb=array [1..5,1..2] of integer;
Md=array [1..4,1..6] of integer;

var
x : Mx ;
b : Mb ;
d : Md ;

n,i,j:integer;
result: real;
c:byte;
begin
clrscr;
randomize;
writeln(' vubor vvoda');
writeln('1 - slu4aunue 4isla');
writeln('2 - s klavu ');
write('-> ');
readln(c);
case c of

1:
begin
for i:=1 to 3 do
begin
for j:=1 to 5 do
begin
x[i,j]:=random(201)-100;
write(x[i,j]:4);
end; writeln; end; writeln;



for i:=1 to 5 do {vvod massiva}
begin
for j:=1 to 2 do
begin
b[i,j]:=random(201)-100;
write(b[i,j]:4);
end; writeln; end; writeln;



for i:=1 to 4 do {vvod massiva}
begin
for j:=1 to 6 do
begin
begin
d[i,j]:=random(201)-100;
write(d[i,j]:4);
end;

end; writeln; end; writeln; end;




2: begin

for i:=1 to 3 do
begin
for j:=1 to 4 do
begin
readln(x[i,j]);
end;
end;
for i:=1 to 3 do
begin
for j:=1 to 5 do
begin
write(x[i,j]:4);
end;
writeln;
end;

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



writeln;

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





Readln;
writeln;
End;
end;
end.