Вывести четыре вектора (одномерных массива) из четырёх первых строк

uses crt,graph;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    m,n,i,j:byte;
    gd,gm:integer;
    s:string;
begin
clrscr;
randomize;
repeat
write('Kol. strok ot 4 do ',nmax,' n=');
readln(n);
until n in [4..nmax];
repeat
write('Kol. stolbcov do ',nmax,' m=');
readln(m);
until m in [1..nmax];
writeln('Matrica:');
for i:=1 to n do
 begin
   for j:=1 to m do
    begin
     a[i,j]:=random(20);
     write(a[i,j]:4);
    end;
   writeln;
 end;
write('Press Enter...');
readln;
gd:=0;
initgraph(gd,gm,'');
for i:=1 to 4 do
 begin
  str(i,s);
  outtextXY(40,i*20,'vector '+s);
  for j:=1 to m do
   begin
    str(a[i,j]:4,s);
    outtextXY(40+6*8+j*4*8,i*20,s); {6-кол.букв в слове вектор,
                                     8-ширина символов в пикселях
                                     для стандартного шрифта
                                     4-количество позиций под число}
   end;
 end;
readln;
end.

uses crt,graph;
const nmax=20;
type mas=array[1..nmax] of integer;{тип массив-строка матрицы}
type matr=array[1..nmax] of mas;{тип матрица - массив строк}
{сдвиг влево на к позиций}
procedure Sdvig(var v:mas;m,k:byte);
var i,j,r:byte;
begin
k:=k mod m;{если к больше длины строки}
for j:=1 to k do
 begin
  r:=v[1];{запоминаем первый}
  for i:=1 to m-1 do{сдвигаем на него}
  v[i]:=v[i+1];
  v[m]:=r;{первый в конец, и так к раз}
 end;
end;
{вывод результатов на экран в графическом режиме}
procedure Vyvod(var a:matr;m:byte;x,y,cl:integer;c:string);
var i,j:byte;
    s:string;
begin
setcolor(cl);
outtextXY(x,y,c);
for i:=1 to 4 do
 begin
  str(i,s);
  outtextXY(x,y+i*20,'vector '+s);
  for j:=1 to m do
   begin
    str(a[i,j]:4,s);
    outtextXY(x+6*8+j*4*8,y+i*20,s);
   end;
 end;
outtextXY(x,y+100,'Press Enter...');
readln
end;
var a,b:matr;
    m,n,i,j,k:byte;
    gd,gm:integer;
    s:string;
begin
clrscr;
randomize;
repeat
write('Kol. strok ot 4 do ',nmax,' n=');
readln(n);
until n in [4..nmax];
repeat
write('Kol. stolbcov do ',nmax,' m=');
readln(m);
until m in [1..nmax];
writeln('Matrica:');
for i:=1 to n do
 begin
   for j:=1 to m do
    begin
     a[i,j]:=random(20);
     write(a[i,j]:4);
    end;
   writeln;
 end;
b:=a;
write('Kolichestvo pozicij sdviga k=');
readln(k);
for i:=1 to 4 do
Sdvig(a[i],m,k);
write('Press Enter...');
readln;
gd:=0;
initgraph(gd,gm,'');
Vyvod(b,m,40,20,10,'Ishodnye vectory:');
Vyvod(a,m,40,140,11,'Vectory posle sdviga:');
end.