Вывести на экран n символов латинского алфавита в обратном порядке

Var n:integer; c:char;
begin
write('n (от 1 до 26):');
readln(n);
for c:='z' downto chr(ord('z')-n+1) do write(c:2);
end.

Пример:
n (от 1 до 26): 5
z y x w v