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

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.