Заполните массив а первыми десятью крупными латинскими буквами и вывести его на экран столбик . паскаль

Const
    n = 10;

var
    a: array[1..n] of string;
    i: integer;

begin
    for i := 1 to n do
    begin
        a[i] := chr(ord('A') + i - 1);
        writeln(a[i]);
    end;
end.