Постройте горизонтальную линию длиной 50 из точек, используя оператор For
Помогите пожалуйста))

Var  i: integer;
begin 
//Горизонтальная линия 
for i := 1 to 50 do   
Write(-);   

Writeln;  
 
//Вертикальная линия 
for i := 1 to 50 do   
Writeln(|);  
end.

Второе изображение в приложении выводит "точки", как и требовалось в задании