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

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

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

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