Вывести в одну строку алфавит с количеством каждой буквы соответствующему ее порядковому номеру

// Перед вами - WEB-среда разработки PascalABC.NET. 
// Она основана на современном языке PascalABC.NET, совместимом с Delphi Object Pascal.  
// Программа запускается на сервере, ввод-вывод передается по сети.
// Программу можно опубликовать и ссылаться на нее в Интернете в виде
// [url]http://pascalabc.net/WDE/?file=имя_опубликованного_файла.pas[/url]
// Зарегистрированные пользователи получают дополнительные возможности:
// долговременное хранение своих программ, возможность работы с папками 
 
var
  i,j,m: integer;
begin
  m := 1;
  for i:=ord('a') to ord('z') do begin
    for j := 1 to m do
      write(chr(i));
    Inc(m); 
  end;
 
end.

// Перед вами - WEB-среда разработки PascalABC.NET. 
// Она основана на современном языке PascalABC.NET, совместимом с Delphi Object Pascal.  
// Программа запускается на сервере, ввод-вывод передается по сети.
// Программу можно опубликовать и ссылаться на нее в Интернете в виде
// [url]http://pascalabc.net/WDE/?file=имя_опубликованного_файла.pas[/url]
// Зарегистрированные пользователи получают дополнительные возможности:
// долговременное хранение своих программ, возможность работы с папками 
 
var
  i,j,m: integer;
begin
  m := 1;
  for i:=ord('A') to ord('Z') do begin
    for j := 1 to m do
      write(chr(i));
    Inc(m); 
  end;
 
end.

begin
  for var i := 1 to 26 do write(new string(Chr(Ord('A') + i - 1), i));
end.

begin
  for var C := 'A' to 'Z' do
    Write(C*(ord(C) - 64));
end.