Дано целое число N от 1 до 26. Вывести N первых прописных (то есть заглавных) букв латинского алфавита — Pascal(Паскаль)

Program stroka4;

Var
  i, a: byte;
  b: char;

begin
  writeln('введите число больше 0 и меньше 27');
  readln(a);
  for i := 1 to a do
  begin
    b := Chr(64 + i);
    write(b, ' ');
  end;
  readln;

end.