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

uses crt;
procedure Line(x,y,k:byte);
var i:byte;
begin
clrscr;
for i:=y to y+k do
 begin
  gotoXY(x,i);
  write('*');
 end;
end;
var x,y,k:byte;
begin
clrscr;
repeat
write('Расстояние от левого края экпана от 1 до 80 x=');
readln(x);
until x in [1..80];
repeat
write('Верхняя точка линии от 1 до 23 y=');
readln(y);
until y in [1..23];
repeat
write('Длина линии от 1 до ',25-y,' k=');
readln(k);
until k in [1..25-y];
Line(x,y,k);
readln
end.