цыклы в паскале

[rdbykjhl]

program vektor_4;
var
a:array[1..100] of integer;
k,i,n,x,m:integer;

procedure vvod;
begin
randomize;.
write('vvedite razmer vektora n=');
readln(n);
writeln('vektor',' ');
for i:=1 to n do
begin
a[i]:=random(20);
write(a[i],' ');
end;
writeln;
end;

procedure bubble;
begin
for i:=1 to n do
for k:=1 to n-i do
if a[k]>a[k+1] then
begin
m:=a[k+1];
a[k+1]:=a[k];
a[k]:=m;
end;
writeln ('polychili');
for i:=1 to n do
writeln (a[i],' ');writeln;
end;
begin
vvod;
bubble;
end.
по словию вектор можно вводить 4 раза
как правильно зациклить......
ПОДСКАЖИТЕ!!!!!!