В квадратной матрице в каждой строке поменять местами максимальный элемент с элементом на главной диагонали.

var c:array[1..m, 1..m] of real;
i, j, k: integer;
r: real;
 
for i := 1 to m do
begin
  k := 1;
  for j := 1 to m do 
    if c[i, k] < c[i, j] then k := j;
  r := c[i, k];
  c[i, k] := c[i, i];
  c[i, i] := r;
end;

uses crt;
const nmax=3;
var a:array[1..nmax,1..nmax] of integer;
    m,n,i,j:byte;
    x:real;
begin
     clrscr;
     randomize;
     writeln('Matrica:');
     for i:=1 to nmax do begin
      for j:=1 to nmax do begin
       a[i,j]:=random(10)-10;
       write(a[i,j]:3);
      end;
    writeln;
   readln;
   end;
end.

uses crt;
const nmax=3;
var a:array[1..nmax,1..nmax] of integer;
    m,n,i,j:byte;
    x:real;
begin
{Задание матрицы ваше}
     clrscr;
     randomize;
     writeln('Matrica:');
     for i:=1 to nmax do begin
      for j:=1 to nmax do begin
       a[i,j]:=random(10)-10;
       write(a[i,j]:3);
      end;
    writeln;
 
{вывод на экран}
for i := 1 to nmax do
begin
  for j := 1 to nmax do write(a[i, j]:5);
  writeln;
end;
 
{Перестановка}
for i := 1 to nmax do
begin
  k := 1;
  for j := 1 to nmax do 
    if a[i, k] < a[i, j] then k := j;
  m := a[i, k];
  a[i, k] := a[i, i];
  a[i, i] := m;
end;
 
{вывод на экран}
for i := 1 to nmax do
begin
  for j := 1 to nmax do write(a[i, j]:5);
  writeln;
end;
 
   readln;
   end;
end.