Ordinal Numbers Using Pascal

As I learned computer programming my first programming language that I have learned is Pascal my compiler that I am using during those days in college in Turbo Pascal 5.0. In this program I would like to reminisce the past by writing a program using Pascal as my programming language to accept a number from the user and then convert the number into ordinal equivalent values.

In this sample program I am using Turbo Pascal 5.5 that is widely available right now to download free from any charges over the Internet. This problem I encounter during my college day's in our programming class.  

Sample Program Output

Program Listing

(* Ordinal_Numbers.pas                       *)

(* Written By Mr. Jake R. Pomperada, MAED-IT *)

(* Tools : Turbo Pascal 5.5. For DOS         *)

(* Date  : November 24, 2015                 *)

Program Ordinal_Numbers;

Uses Crt;

Var number : integer;

  message  : string;

  a              : integer;

  mod100   : integer;

  mod10    : integer;

begin

   a:=0; mod10:=0; mod100:=0;

  clrscr;

  textcolor(yellow);

  write('Ordinal Number Generator in Pascal');

  writeln; writeln; writeln;

  write('Enter a Number : ');

  readln(number);

  writeln; writeln;

  for a:= 1 To number Do

   Begin

     mod10 := (a mod 10);

     mod100 := (a mod 100);

   if (mod10 = 1) AND (mod100 <> 11) then

     Begin

       message := 'st';

     End

   else if (mod10 = 2) AND (mod100 <> 12) then

     Begin

       message := 'nd';

     End

   else  if (mod10 = 1) AND (mod100 <> 11) then

     Begin

       message := 'rd';

     End

  else

    Begin

     message := 'th';

    End;

        write(' ',a,message,' ');

   End;

  writeln; writeln;

  write('End of Program');

  readln;

End.