составить процедуру, рисующую на экране вертикальную линию из любого числа символов ,,*» — Pascal(Паскаль)

program test;
 
   var
      i,a : integer;
procedure lin(a:integer);
var i:integer;
begin
for i:=1 to a do
writeln('*');
end;
 
begin
write('vvedite cislo: ');
readln(a);
lin(a);
end.