Дан массив R (М, M). Переставить строчку с наименьшим элементом на

Const
  m=10;
var
  R:array[1..m,1..m] of integer;
  i,j,t,p,q:integer;
begin
  Write('Введите номер строчки (1..10) для перестановки: ');
  Read(q);
  Randomize;
  Writeln('Начальный массив');
  for i:=1 to m do begin
    for j:=1 to m do begin
      R[i,j]:=Random(90)+10;
      Write(R[i,j]:3);
      end;
    Writeln
  end;
  p:=1;
  for i:=2 to m do
    if R[i,i]lt;R[p,p] then p:=i;
  if plt;gt;q then begin
    Writeln('Результирующий массив');
    for j:=1 to m do begin
      t:=R[p,j]; R[p,j]:=R[q,j]; R[q,j]:=t
      end;
    for i:=1 to m do begin
      for j:=1 to m do Write(R[i,j]:3);
      Writeln
      end
    end
end.      
       
Пример
Введите номер строчки (1..10) для перестановки: 3
Начальный массив
 50 86 52 85 96 69 44 51 20 77
 55 79 39 73 98 74 65 65 63 80
 64 89 83 55 98 74 85 63 90 52
 37 42 64 84 66 78 67 31 56 34
 69 18 34 48 42 44 12 91 67 47
 72 19 14 22 53 61 13 97 87 31
 83 80 61 67 50 22 25 55 16 29
 16 44 19 39 20 55 65 44 23 63
 72 93 96 52 79 27 38 52 40 15
 75 70 44 34 50 88 57 66 97 29
Результирующий массив
 50 86 52 85 96 69 44 51 20 77
 55 79 39 73 98 74 65 65 63 80
 83 80 61 67 50 22 25 55 16 29
 37 42 64 84 66 78 67 31 56 34
 69 18 34 48 42 44 12 91 67 47
 72 19 14 22 53 61 13 97 87 31
 64 89 83 55 98 74 85 63 90 52
 16 44 19 39 20 55 65 44 23 63
 72 93 96 52 79 27 38 52 40 15
 75 70 44 34 50 88 57 66 97 29