Матрица. Поменять местами максимум и минимум. delphi

[ilnar]

Дана матрица M*N. Преобразовать матрицу, поменяв местами минимальный и максимальный элемент в каждой строке.


Помогите плииииз!((((

[ОДИНОЧЕСТВО В СЕТИ]

{дописать ввод-вывод исходной матрицы}
for i:=1 to m do begin
max:=a[i,1];min:=a[i,1];m1:=1;m2:=1;
for j:=2 to n do begin
if a[i,j]>max then begin max:=a[i,j];m1:=j;end;
if a[i,j]<min then begin min:=a[i,j];m2:=j;end;
end;
t:=a[i,m1];
a[i,m1]:=a[i,m2];
a[i,m2]:=t;
end;
{дописать вывод конечной матрицы}

[Stilet]

ilnar

А наработками похвастаться?

[ilnar]

Спасибо огромное!!!)))