Вывести на экран алфавит (паскаль). заранее

Вот программа:

uses Crt;
  var i: integer;

begin
  ClrScr;
  for i:=65 to 90 do
  Write(Chr(i):4);
  WriteLn; WriteLn;
  for i:=97 to 122 do
  Write(Chr(i):4);
  WriteLn;
  ReadLn;
end.