как составить программу для решения алгоритма: Дан массив А(n,n). Нужно поменять местами элементы к- и j- строки этого массива

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

Нет. Все не так. Вводится с клавиатуры значения 2-х строк, которые надо поменять между собой

constn=10;vari,j,k,m,buf:integer;a:array[1..n,1..n]of integer;begin    for i:=1 to n do        begin            writeln;               for m:=1 to n do                   begin                       a[i,m]:=random(20);                       write(a[i,m]:4);                    end;        end;writeln;writeln('k,j ?');readln(k,j);   for m:=1 to n do      begin          buf:=a[k,m];          a[k,m]:=a[j,m];          a[j,m]:=buf;       end;for i:=1 to n do   begin       writeln;          for m:=1 to n do              write(a[i,m]:4);    end;end.