не соображу пока как правиьно зациклить

[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 раза

[Pein95]

задание напишіте и где какая ошібка

[rdbykjhl]

разработать процедуру сортировки одномерных массивов по возрастанию значений и применить ее для сортировки четырех одномерных массивов произвольной длинны

[rubius2008]

for j:=1 to 4 do begin
 vvod;
 bubble;
end;

[rdbykjhl]

у меня такой вопрос -как в блок схеме обозначается процедура.
Я студент зоочник....много приходится познавать самой.