אז עשיתי את זה:
Program hwq1;

uses wincrt;

Var i:integer;
num:char;

Begin
num:=chr(65);
for i:=1 to 26 do
begin
writeln (succ(num));
num:=succ(num);
end;
end.

הבעייה היא שבסוף במקום להדפיס A זה מדפיס } בגלל שזה ה-ASCII העוקב...
יש דרך לעשות שזה ידפיס A בעזרת פונקציה או שפשוט להוסיף מחוץ ללולאה בסוף:
write (chr(65));
?

תודה