Задача в паскале с матрицами

[joker3814]

Задача такая:
Поменять местами строки матреци А(m, n) в которой расположен max и min элементы матрици.

вот чтовышло уменя нотам оченьмного ошибок:

program 111209;
const n=3;
m=4;
useswincrt;
var A: array [1..n, 1..m] jf real;
n i : integer;
j max, i max:=real;
begin
write ('введите чило элементов строк');
readln (n);
writeln ('введите чило элементов столбцов');
readln (m);
for i:=1 to n do
for j:=1 to m do
begin

вот дальше я совсем не уверен

write ('введите A[',i,']=');
readln (A [i]);
end;

дальше точно ошибка

for i:=1 to n do
begin
max:= A[1,j] i max=1;
min:=A[1, i] j min=1;
for j:= 1 to m do
if A[ij]> max then
begin
max:= A[i j]
i max:=j
end
else
If A [i j] < min then
begin 
min:= A [i j]
i min = j
end;
writeln ('min=' max);
for j:= 1 to n do
begin
P:=a[ i max, j];
a [i min, j] :=a [i max j];
a [i max, j]:=P;
end;
for:1 to m do
begin:= 1 to n do
write('a<i,j,',);
end;
end.

[IT-man]

Сделаю! Стучи ! Дешево!