درخواست کمک از اونایی که برنامه نویسی می دونن

 IF test >1 THEN
    writeln ('Notice that your number is bigger than 999');

 IF n = 0 THEN
    writeln ('Sefr');

PROGRAM behoroof (input,output);
  {
   barnameyi ke adade koochektar az 1000
   ra az karbar gerefte va be horoof benevisad
       }
VAR
  n : integer; {entery number}
  test : integer; {for situation that entery number is biger than 999}
  sadgan,dahgan,yekan:integer;

BEGIN
  writeln ('Enter a number (<1000)');
  readln (n);
  test:= n div 1000;
  IF test>1 THEN {the program is not defined for more than 999}
    writeln ('Notice that your number is bigger than 999')
  ELSE
    BEGIN
      sadgan:= n div 100;
      case sadgan OF
        0 :;
        1 : write ('sad');
        2 : write ('divist');
        3 : write ('sisad');
        4 : write ('chaharsad');
        5 : write ('pansad');
        6 : write ('sheshsad');
        7 : write ('haftsad');
        8 : write ('hashtsad');
        9 : write ('nohsad');
      END;
      n:= n - (sadgan*100);
      dahgan:= n div 10;
      IF sadgan = 0 THEN
         case dahgan OF
           0 :;
           1 :;
           2 : write ('bist');
           3 : write ('si');
           4 : write ('chehel');
           5 : write ('panjah');
           6 : write ('shast');
           7 : write ('haftad');
           8 : write ('hashtad');
           9 : write ('navad');
        END
      ELSE
        case dahgan OF
          0 :;
          1 :;
          2 : write ('o bist');
          3 : write ('o si');
          4 : write ('o chehel');
          5 : write ('o panjah');
          6 : write ('o shast');
          7 : write ('o haftad');
          8 : write ('o hashtad');
          9 : write ('o navad');
        END;
      n:= n - (dahgan*10);
      yekan:= n;
      IF (dahgan=0) THEN
        CASE yekan OF
          0 : write ('sefr');
          1 : write ('yek');
          2 : write ('do');
          3 : write ('se');
          4 : write ('chahar');
          5 : write ('panj');
          6 : write ('shesh');
          7 : write ('haft');
          8 : write ('hasht');
          9 : write ('noh');
        END

      ELSE
        IF (dahgan =1) THEN
          case yekan OF
            0 : write ('o dah');
            1 : write ('o yazdah');
            2 : write ('o davazdah');
            3 : write ('o sizdah');
            4 : write ('o chahrdah');
            5 : write ('o panzdah');
            6 : write ('o shanzdah');
            7 : write ('o hefdah');
            8 : write ('o hejdah');
            9 : write ('o noozdah');
          END
      ELSE
        CASE yekan OF
          0 :;
          1 : write ('o yek');
          2 : write ('o do');
          3 : write ('o se');
          4 : write ('o chahar');
          5 : write ('o panj');
          6 : write ('o shesh');
          7 : write ('o haft');
          8 : write ('o hasht');
          9 : write ('o noh');
        END;
    END;
writeln;
readln;
END