Penggunaan Fungsi ORD pada Pascal

Berikut ini adalah contoh penggunaan fungsi ORD pada pascal :

Program UrutanHuruf;
uses wincrt;
var
x : char;
begin
     readln(x);
        if (ord(x)>=65) and (ord(x)<97)then
     begin
        writeln ( '====================== ') ;
        writeln ( 'Huruf Kapital');
        write ( 'Huruf Ke ',ord(x)-64) ;  
        writeln ( ' Dalam Abjad');
        write ( '======================' ) ;
     end
     else
     begin
        writeln ( '======================' ) ;
        writeln ( 'Huruf Non Kapital');
        write ( 'Huruf Ke ',ord(x)-96 ) ;
        writeln ( ' Dalam Abjad');         
        writeln ( '======================' ) ;
     end;
end.

hasilnya :

A
===============
Huruf Kapital
Huruf Ke 1 Dalam Abjad
=============== 

a
===============
Huruf Non Kapital
Huruf Ke 1 Dalam Abjad
===============