Строка ABBCCCDDDD..... Опции

[dash]

Нужно написать строку ABBCCCDDDDEEEEEFFFFFF... ZZZZZ..ZZ
Не могу сообразить как это реализовать  ???
помогите пжалста.

[trminator]

Код

var i : char;
   j : integer;
begin
 for i:='A' to 'Z' do
     for j:=1 to byte(i) - byte('A') + 1 do {Вместо byte(x) можно ord(x)}
       write(i)
end.

[dash]

Спасибо за помощь