Переместить максимальный элемент на место первого

[desnet]

Найти в каждой строке матрицы А максимальный элемент и переместить его его на место первого, образовав массив С. Помогите,я только нашел максимальный элемент в каждой строке.

Program  mas_11;
uses crt;
const n=3;m=4;
Var a:array[1..n,1..m]  of integer;
max,i,j:integer;
Begin
randomize;
For i:=1 to n do
begin
For j:=1 to m do
begin
a[i,j]:=random(10); 
write(a[I,j]:4);
end;
writeln;
end;
For i:=1 to n do
begin
max:=a[i,1];
For j:=1 to m do
If max< a[i,j] then 
max:=a[i,j];
Writeln('**наибольший элемент массива ',i,'строки',max);
End;
Readln;
End.

[Stilet]

For i:=1 to n do begin
 For j:=1 to m do If a[1,j]< a[i,j] then a[1,j]:=a[i,j];
End;

For i:=1 to n do begin
 For j:=1 to m do write(a[i,j]:6); writeln;
End;

Подойдет?

[desnet]

вроде подходит,Спасибо большое!