[Kapitoshka438]

Так круче:

Код:

var
  C: Char;
  S: string;
begin
  S := '';
  for C := 'a' to 'z' do
  begin
    S := S + C;
    Writeln(S);
  end;
end;