program zadacha;
var
a:array[byte,byte] of integer;
b:array[byte] of integer;
k,i,j,n:integer;
begin
writeln ('Введите  номер строки которую нужно поменять');
readln (k);
writeln ('Введите количество элементов массива');
readln (n);
writeln ('Введите элементы массива и нажмите (Enter)');
for i:=1 to n  do
for j:=1 to n  do
read(A[i,j]);

for i:=1 to n  do
for j:=1 to n  do
 write (A[i,j]);

for j:=1 to n do
begin
b[j]:=a[k,j];
a[k,j]:=a[n,j];
a[n,j]:=b[j];
end;

for i:=1 to n  do
for j:=1 to n  do
 write (a[i,j]);

 for i:=1 to n  do
 write (b[i]);
end.