Программа вывода последовательности букв a, ab, abc, ..., abc ... xyz. (программа Паскаль)

program SUITE;
var c, d: char;
begin
for c := 'a' to 'z' do
begin
  for d := 'a' to c do write (d);
  writeln (' ');
end;
end.