обработка матриц в паскале.помогите пожалуйста.

[sugarplum]

9
P(N,N) Найти в каждой строке наибольший элемент и поменять его местами с элементом главной диагонали.
N<=5
10 R(K,N) Найти наибольший и наименьший элементы матрицы и поменять их местами. K<=7 N<=5
12 V(5,8) Упорядочить по возрастанию элементы каждой строки матрицы.

[Chudo4258]

9.

for i:=1 to n do
begin
 maxi:=i;
 maxj:=1; 
 max:=a[naxi,maxj];
 for j:=1 to n do
  if a[i,j]>max then begin 
                                   max:=a[i,j]; 
                                   maxi:=i; 
                                   maxj:=j; 
                          end;
 p:=a[i,i];
 a[i,i]:=a[maxi,maxj];
 a[maxi,maxj]:=p;
end;

10

max:=a[1,1];
min:=a[1,1];
maxi:=1;
maxj:=1;
mini:=1;
minj:=1;
for i:=1 to k do
 for j:=1 to n do
  if a[i,j]>max then begin
                                  max:=a[i,j];
                                  maxi:=i;
                                  maxj:=j;
                            end;
   if a[i,j]<min then begin
                                  min:=a[i,j];
                                  mini:=i;
                                  minj:=j;
                            end;
p:=a[mini,minj];
a[mini,minj]:=a[maxi,maxj];
a[maxi,maxj]:=p;