pascal dengan array a-z

program a-sampai-z;

uses
WinCrt;
const
max=26;
var
A:array[1..max] of char ;
c:char;
i:integer;
begin
c:='A';
i:=1;
while (i<=max) do begin
A[i]:=c;
inc(c);
inc(i);
end;
for i:=1 to max do begin
write(A[i], ' ');
end;
readln;
end.