Оформил: Аганов Дмитрий
Автор: http://www.borlpasc.narod.ru

{Andrey Sharov                     }
{ e-mail : ansharov@one.lv         }
{ website: www.borlpasc.narod.ru   }
{Задана квадратная матрица.Поменять местами строку с макс.элементом на главной
диагонали и строку с заданным номером m}
program borlpasc;
var a: array[1..30, 1..30] of integer;
  i, j, n, k, m, max, at: integer;
begin writeln('Введите размерность матрицы:');
  readln(n);
  write('Введите номер строки m=');
  readln(m);
  for i := 1 to n do
    for j := 1 to n do
    begin write('a[', i, j, ']=');
      readln(a[i, j])
    end;
  writeln('Ваша матрица:');
  for i := 1 to n do
  begin for j := 1 to n do
      write(a[i, j]: 4);
    writeln
  end;
  max := 1;
  for i := 1 to n do
    if a[max, max] < a[i, i]
      then max := i;
  for i := 1 to n do
  begin at := a[m, i];
    a[m, i] := a[max, i];
    a[max, i] := at
  end;
  writeln('Полученная матрица:');
  for i := 1 to n do
  begin for j := 1 to n do
      write(a[i, j]: 4);
    writeln
  end
end.