Program cetak angka susunan ganjil-genap

uses crt;
var
   kode,x,y:integer;

begin
   clrscr;
   kode:=64;
   x:=1; y:=0;
   repeat
      if ( y mod 2 ) =1 then
      writeln;
      kode:=64;
      if (y mod 2)=1 then
         x:=1
      else
         x:=2;

      inc(y);
       repeat

         kode:=kode+1;
         gotoxy(x,y);
         write(' ',chr(kode));
         x:=x+2;
         delay(100);
       until kode=90;
   until y=13;
   readln;
end.