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

uses crt;
procedure Linya(a,b:byte);
var i:byte;
begin
gotoXY(1,a);{устанавливаем курсор в певую позицию заданной строки}
for i:=1 to b do write('*');{рисуем заданное количество звездочек}
end;
var y,k:byte;
begin
clrscr;
repeat
write('Введите номер строки для линии от 1 до 25 y=');{количество строк на экране(обычно в Турбо Паскаль)}
readln(y);
until y in [1..25];
repeat
write('Длина линии от 1 до 79 k=');{ширина экрана, минус 1 позиция под курсор}
readln(k);
until k in [1..79];
Linya(y,k);
readln
end.

Program LineSymbol:
Uses CRT;
 
Procedure LineN(N:byte);
Var i:byte;
begin
For i:=1 to N do Write('*'); {можно заменить на Write(Chr(Ramdom(255)));}
end;
 
begin
ClrScr;
LineN(50); {горизонтальная линия из 50 символов в текущей позиции}
ReadKey;
end.

Program LineSymbol2:
Uses CRT;
 
Procedure LineXY(X,Y,N:byte);
Var i:byte;
begin
GotoXY(X,Y);
For i:=1 to N do Write('*'); 
end;
 
begin
ClrScr;
LineX(10,12,60); {горизонтальная линия из 60 символов по координатам X=10 и Y=12}
ReadKey;
end.