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

Const

n=10;

var

i, 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.