Составить процедуру "рисующую" на экране горизонтальную линию из любого числа символов

uses crt;
function F1(a:byte):real;
begin
F1:=(a+sin(a))/3;
end;
function F2(a,b:byte):real;
begin
F2:=(a+sin(a))/(sin(b)+b);
end;
begin
clrscr;
writeln('(1+sin(1))/3+(5+sin(5))/3+(3+sin(3))/3 = ',(F1(1)+F1(5)+F1(3)):0:3);
write('(2+sin(2))/(sin(5)+5)+(6+sin(6))/(sin(3)+3)+(1+sin(a1)/(sin(4)+4) = ',(F2(2,5)+F2(6,3)+F2(1,4)):0:3);
readln
end.

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.