Помогите пожалуйста!!!! Паскаль АВС В каждой строке двумерного массива поменять местами первый элемент и любой из максимальных. Использовать только циклы, без функция и т.п.

var a[1..5,1..5] of integer; b,i,j,l: integer;

Begin

// считываешь элементы массива. Сама справишься.

For i:=1 to 5 do

      for j:=2 to 5 do

            if a[i,1]<a[i,j] then a[i,1]:=a[i,j];

For i:=1 to 5 do begin

 for j:=1 to 5 do

    Write(a[i,j],' ');

   writeln;

 end;

end.