Решить pascal abc дано целое число n. написать программу выводящую n первых маленьких латинских букв

Var i: char;
    n: integer;
    a: array [0..21] of char;
begin
     readln(n);
     for i := 'a' to 'z' do if (ord(i) <= n + 97) then write(i);
end.