Pascal Рисуем треугольник ( без использования graph )

[EvilExe]

Программа рисует треугольник без использования модуля "graph"

program tr;
uses crt;
var ch:char; i,j,n:integer;
begin
writeln('Ввести: высоту треугольника');
readln(n);
writeln('Ввести: символ');
readln(ch);
for i:=1 to n do
begin
write(ch:50-i+1);
for j:=2 to 2*i-1 do
write(ch);
writeln;
end;
readln;
end.

Теория:
Треугольник начинается из 50 символа, то есть с середины окна консоли. Если у вас есть дополнения, как начать рисовать треугольник от начала (а не середины) прошу уведомить меня.

Автор: EvilExe