с использованием вложенного цикла (без массива) составить программу которая выводит на экран алфавит в таком виде — Pascal(Паскаль)

abcd................z
_abcd..............y
__abcd.............x
_____...............
_________.........
______________a (многоточие это продолжение букв. "_" -пробел)

Uses crt;
Var i, j : integer;
begin
ClrScr;
for i := 122 downto 97 do begin
  {Этот цикл ставит нужное количество пробелов}
  for j := i to 122 do
    Write(' ');
  {Этот цикл выводит буквы}
  for j := 97 to i do
    Write(chr(j));
  Writeln;
end;
Readln
end.

uses crt;
var i,j:byte;
begin
clrscr;
for i:=1 to 24 do
 begin
  for j:=1 to 24 do
   begin
    if j>=i then write(chr(j-i+97))
    else write(' ');
   end;
  writeln;
 end;
readln
end.