Поменять местами строки с номерами К1 и К2.

program prim4;
  uses art;
  type mas=array[1..100,1..100] of integer;
  var a:mas;
      i,j,n,k1,k2,r: integer;
begin
  clrscr;
  randomize;
  write('n=');readln(n);
{Создаем и распечатываем двумерный массив.}
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          a[i,j]:=random(45)-22;
          write(a[i,j]:4);
        end;
      writeln;
    end;
{Вводим номера строк, которые будем менять местами.}
  write('stroki k1=k2=');readln(k1,k2);
{Меняем значения К1 и К2 строк между собой.}
  for j:=1 to n do
    begin
      r:= a[k1,j];a[k1,j]:=:=a[k2,j];
      a[k2,j]:=r;
    end;
{Распечатаем измененный массив.}
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          write(a[i,j]:4);
        end;
      writeln;
    end;
  readln;
end.