паскаль. двумерный массив. перенос первых K строк.

[LogrusVTK]

Дан двумерный массив из 20 строк. Перенести первые k строк в конец массива, соблюдая порядок их следования.
Как понимаю надо еще два цикла присобачить, чтобы брал с 1 по к строку for i:=1 to k do, а вот как их перенести в конец не могу додуматься

uses crt;
const n=20;
var
x,y:array[1..n,1..n] of integer;
i,j,k,err,temp:integer;
procedure perenos;
begin
 repeat
 write('Введите количество строк ');
 {$i-}readln(k);{$i+}
 err := IOResult;
 if (err<>0) or (k>n) then
 writeln('Введите число не превышающее количество строк');
 until (err=0) and (k<=n);
 writeln;             
 for j:=1 to n do
  begin
   temp:=x[k,j]; 
   x[k,j]:=x[4,j];  
   x[4,j]:=temp;
  end;
  for i:=1 to n do
   begin
    for j:=1 to n do
    write(x[i,j]:3);
    writeln;
   end;
end;

begin
 clrscr;
 randomize;
 for i:=1 to n do
 for j:=1 to n do
 x[i,j]:=random(100);
  for i:=1 to n do
   begin
    for j:=1 to n do
    write(x[i,j]:3);
    writeln;
   end;
 writeln;
 perenos;
 readln
end.

[ByAlex]

Как я понял, вам нужно просто поменять первые к-строк местами с последними? Или просто скопировать эти первые к-строк в конец массива?

[LogrusVTK]

По заданию не очень понятно скорее всего имелось ввиду убрать первые K строк, массив при этом смешается на эти К строк вниз, а потом идут К строки, а не увеличение массива на K строк.