Матрицы.переставить строку с максимальным элементом на главной диагонали со строкой с заданным номмером м

[microlab]

задана квадратная матрица А размерностью 8*8. переставить строку с максимальным элементом на главной диагонали со строкой с заданным номмером м. Матрицу заполнить случайными числами из диапозона -14..54

From Stilet: Темы называй так чтоб понять можно было твою проблему а не бахвальствуй

[Sibedir]

Так уж и препады не могут. Не заливай. Это чё преподы литературы в институте культуры что-ли?

[eoln]

microlab, сознались бы сразу... Типовая школьная задача на массивы.

const
  N = 8;

var
  mas: array[1..N, 1..N] of integer;
  m, i, j, k, max: integer;

begin
  randomize;
  for i := 1 to N do
  begin
    for j := 1 to N do
    begin
      mas[i, j] := random({54+14+1=}69) - 14;
      write(mas[i, j]:4)
    end;
    writeln
  end;

  max := mas[1, 1];
  k := 1;
  for i := 2 to N do
  if mas[i, i] > max then
  begin
    max := mas[i, i];
    k := i;
  end;

  writeln('max string = ', k);
  write('m (1..8) = ');
  readln(m);

  for i := 1 to N do
  begin
    j := mas[k, i];
    mas[k, i] := mas[m, i];
    mas[m, i] := j
  end;

  for i := 1 to N do
  begin
    for j := 1 to N do write(mas[i, j]:4);
    writeln
  end;
  readln
end.

[microlab]

Спасибо, Я учусь не в институте а в техникуме и к каму подходил из преподователей не смог а может лень думать было а мне эта задачка на олимпиаде попалась