raidziu piraminde (fps)

Sudarykite programą, kuri išspausdintų lotyniškosios abėcėlės piramidę:

 
  a
 ab
 abc
 abcd

program Noname0;
var i,j:integer;
begin

 for i:=ord('a') to ord ('z') do

  begin
	   for j:=ord('a') to i do
	   write(b);
	   write (chr(j));
	   writeln;
  end;
 readln;
end.

reiketu ja patobulint, nes dbr gaunasi trikampis ne piramide.

Bent jau kiek aš žinau tai paskalyje kiekvienam ženklui skiriamas tokia pat vieta, taigi su tokiom raidėm nesigautų piramidės. Nebent raidės būtų:

  
a
abc
abcde
...

o šaip esmė viso scripto būtų tokia, kad skaičiuotų kelintą eilutę dabar spausdina ir prieš spausdindami įterptų tarpą (if eilsk = 1 then for i:=1 to z do write(' '); ir kiekvienoj naujoj eilutėj z:= z-1) jei eilučių skaičius nežinomas, tada nuskaitom paskutinę eilutę, suskaičiuojam kiek joje simbolių, tada simbolių sk div 2 ir žinom kiek tarpų reiks dėti pirmoje eilutėje ;)

Štai patobulinau. Kadangi sąlygoje nėra parašyta kaip turi stovėti piramidė, tai man išėjo padaryti, jog būtų prisiglaudusi prie šono.

program Noname0;
var i,j,b:integer;
begin

 for i:=ord('a') to ord ('z') do

  begin
	   for j:=ord('a') to i do
	   write(b);
	   write (chr(j));
	   writeln;
  end;
 for i:=ord('a') to ord ('z') do

  begin
	   for j:=ord('z') downto i do
	   write(b);
	   write (chr(j));
	   writeln;
  end;

 readln;
end.