Программа дописывает после числа слово «рубль» в правильной форме — Pascal(Паскаль)

program propis;
var
     n: integer; { число }
     r: integer; { остаток от деления n на 10 }
begin
     { здесь инструкции программы, определяющие значение n }

     writeln('Введите целое число (от 1 до 999) и нажмите <Enter>');
     write('-> ');
     readln(n);

     { здесь вывод поясняющего текста }

     if n>100
         then n:=n mod 100;
     if (n>=11) and (n<=14)
         then
              writeln(' рублей')
         else begin
              r:=n mod 10;
              case r of
                   0, 5 .. 9: writeln(' рублей');
                   1:    writeln (' рубль');
                   2..4: writeln (' рубля');
              end;
         end;

end.