Много ! как сделать лесенку из алфавита в pascal abc a ab abc по принципу var i: byte; j: char; begin

Program p1;
var S,T: string;
i:integer;
begin
T:='';
for i:=1 to 26 do
begin
S:=Copy (T,1,i);
writeln(S);
end;
end.