Дан двумерный массив целых чисел. Упорядочить по возрастанию элементы тех строк этого массива, где на главной диагонали простое число - Turbo Pascal - Ответ 4013609

const
  nmax=20;
var
  a: array[1..nmax,1..nmax] of integer;
  n,i,j,k,m,p: byte;
  tmp: integer;
begin
  randomize;
  write('Введите размер массива n: ');
  readln(n);
  writeln('Исходный массив:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(9)+1;
      write(a[i,j]:3);
    end;
    writeln;
  end;
  writeln;
  
  for i:=1 to n do
  begin
    k:=0;
    // проверяем - простое ли число на гл. диагонали
    for m:=1 to a[i,i] do
      if a[i,i] mod m=0 then inc(k);
    // если да - сортируем строку
    if k=2 then
      for p:=2 to n do
        for j:=n downto p do
        if a[i,j-1]>a[i,j] then
        begin
          tmp:=a[i,j-1];
          a[i,j-1]:=a[i,j];
          a[i,j]:=tmp;
        end;
  end;
  writeln('Полученный массив:');
  for i:=1 to n do
  begin
    for j:=1 to n do
      write(a[i,j]:3);
    writeln;
  end;
  readln;
end.