Дано четырехзначное число, заданное в символьном виде, например, '1954'. Напечатать его текстом, например

[gred]

Тя походу глучит
-должно быть не StrToInt(N[3]), а StrToInt(N[4]) уже? -
мы проверяем 3 символ если он 1 тогда выводим одинадцать двенадцать...
если нет идём дальше в 3 символ записываем двадцать тридцать....

[Карась]

Для того чтоб понять зачем это, нужно смотреть весь блок If Then Else:

If N[3] = '1' Then   
  Begin   
     Case StrToInt(N[3]) of  
      1 : Write(Rus(('одинадцать ')));   
      2 : Write(Rus(('двенадцать ')));   
      3 : Write(Rus(('тринадцать ')));   
      4 : Write(Rus(('четырнадцать ')));   
      5 : Write(Rus(('пятнадцать ')));   
     End;   
  End   
Else   
  Begin   
    Case StrToInt(N[3]) of  
      2 : Write(Rus(('двадцать ')));   
      3 : Write(Rus(('традцать ')));   
      4 : Write(Rus(('сорок ')));   
      5 : Write(Rus(('пятьдесят ')));   
     End;   
  
     Case StrToInt(N[4]) of  
      2 : Write(Rus(('два ')));   
      3 : Write(Rus(('три ')));   
      4 : Write(Rus(('четыре ')));   
      5 : Write(Rus(('пять ')));   
     End;   
  End;   
  
End.

Тут мы обрабатываем две последнии цифры четырёхзначного числа. Это как несложно догадаться двузначное число, которое имеет некоторую особенность:
Цифры с 10 по 19 являются целыми словами, а не составными.
Например:
Десять, Одиннадцать, Двенадцать, ..... , Девятнадцать.
Затем с 20 по 99 идут составные:
Двадцать, Двадцать один, Двадцать два.

Ну так вот смысл этого куска кода и заключается в правильной обработке двузначного числа.

[Valter]

Сообщение от Карась

Тут мы обрабатываем две последнии цифры четырёхзначного числа. Это как несложно догадаться двузначное число, которое имеет некоторую особенность...

Это понятно.
Я имел в виду вот что:

If N[3] = '1' Then   
  Begin   
     Case StrToInt(N[3]) of  
      1 : Write(Rus(('одинадцать ')));   
      2 : Write(Rus(('двенадцать ')));   
      3 : Write(Rus(('тринадцать ')));   
      4 : Write(Rus(('четырнадцать ')));   
      5 : Write(Rus(('пятнадцать ')));   
     End;

Допустим, число 1914. Первые две: "тысяча" и "девятсот" ты определил в предыдущих блоках. Далее идет 1. Это N[3]. Входим поэтому в блок if N[3]='1'. Далее мы должны смотреть уже не N[3], а N[4] в операторе Case, чтобы понять, что это 'одиннадцать', "двенадцать" и т.д. А у тебя в первом case снова N[3]. Я доступно объясняю?))

[Карась]

to Valter
Я молча ставлю +1... Действительно, ошибся.