Помощь с циклом (Не могу решить проблему)

[Usandy]

Написал программу, не получается убрать цикл разряда 4 ( case of 4 при условии, если в 5-ом разряде razr=1 (исключение будет, дабы выводилось, к примеру "одиннадцать тысяч") без учета 4-го разряда, очень нужна помощь, не знаю как сделать и ломаю голову уже 3 дня...

var R1,R2,R3,R4,R5: array[0..10] of string;
             i:integer;
 StrResult,stPr, stRez : string;
 a,inChislo,razr, strLen : integer;


      begin
      //      1 ðàçðÿä                  //
             R1[1]:=' îäèí ';
             R1[2]:=' äâà ';
             R1[3]:=' òðè ';
             R1[4]:=' ÷åòûðå';
             R1[5]:=' ïÿòü ';
             R1[6]:=' øåñòü ';
             R1[7]:=' ñåìü ';
             R1[8]:=' âîñåìü ';
             R1[9]:=' äåâÿòü ';
                       //      2 ðàçðÿä                  //
                       
             R2[0]:='';
              R2[1]:='';
              R2[2]:=' äâàäöàòü';
              R2[3]:=' òðèäöàòü';
              R2[4]:=' ñîðîê';
              R2[5]:=' ïÿòüäåñÿò';
              R2[6]:=' øåñòüäåñÿò';
              R2[7]:=' ñåìüäåñÿò';
              R2[8]:=' âîñåìüäåñÿò';
              R2[9]:=' äåâÿíîñòî ';
                       //      3 ðàçðÿä                  //
               R3[1]:='ñòî ';
               R3[2]:='äâåñòè';
               R3[3]:='òðèñòà';
               R3[4]:='÷åòûðåñòà';
               R3[5]:='ïÿòüñîò';
               R3[6]:='øåñòüñîò';
               R3[7]:='ñåìüñîò';
               R3[8]:='âîñåìüñîò';
               R3[9]:='äåâÿòüñîò';

                          //      4 ðàçðÿä                  //
               R4[1]:=' îäíà ';
               R4[2]:=' äâå ';
               R4[3]:=' òðè  ';
               R4[4]:=' ÷åòûðå ';
               R4[5]:=' ïÿòü ';
               R4[6]:=' øåñòü ';
               R4[7]:=' ñåìü ';
               R4[8]:=' âîñåìü ';
               R4[9]:=' äåâÿòü ';


                          //    èñêëþ÷åíèÿ ðàçðÿä                  //
                          
                     R5[1]:=' îäèííàäöàòü ';
                     R5[2]:=' äâåííàäöàòü ';
                     R5[3]:=' òðèííàäöàòü ';
                     R5[4]:=' ÷åòûðíàäöàòü ';
                     R5[5]:=' ïÿòíàäöàòü ';
                     R5[6]:=' øåñòíàäöàòü ';
                     R5[7]:=' ñåìíàäöàòü ';
                     R5[8]:=' âîñåìíàäöàòü ';
                     R5[9]:=' äåâÿòíàäöàòü ';


             
             
             
                writeln('Ââåäèòå ÷èñëî');
         readln(inChislo) ;
          stRez := IntToStr(inChislo);
          Strlen:= length(stRez);






     for i:= strLen downto 1 do
       Begin
         stPr:= copy(stRez,strLen - i +1,1);
         razr := StrToInt(stPr);
         

         
         case i of
          1: Begin
               StrResult:= StrResult + R1[razr];
             end;
          2:
               Begin
               if razr=1 then
               Begin
               stPr:= copy(stRez, strLen ,1);
               a := StrToInt(stPr);
               StrResult:= StrResult + R5[a];
               break;
               
                  end
               else
               StrResult:= StrResult + R2[razr];
     end;
          3:
          Begin
               StrResult:= StrResult + R3[razr];
          end;
          4:  Begin
               StrResult:= StrResult + R4[razr];
               If razr=1 then StrResult:= StrResult + ' òûñÿ÷à ';
               if razr=2   then StrResult:=StrResult + ' òûñÿ÷è ';
               if razr=3   then StrResult:=StrResult + ' òûñÿ÷è ';
               if razr=4   then StrResult:=StrResult + ' òûñÿ÷è ';
              if  razr>4 then StrResult:=StrResult + ' òûñÿ÷ ';
                end;

           5:  Begin
                 if razr=1 then
                 Begin
                 stPr:= copy(stRez, razr+1 ,1);
                 a := StrToInt(stPr);
                 StrResult:= StrResult + R5[a];



                  end
               else
               StrResult:= StrResult + R2[razr];

            end;
         end;
          end;

           writeln (strResult)
              end.

[Usandy]

http://gyazo.com/0e078a0b5d5c12a1717ca6549941ef4d
http://gyazo.com/064f60a3c3b6bfc6dbaaf403fc30ae11
http://gyazo.com/483adcf300f58748795baa2aa0f5bf9f
http://gyazo.com/4754953097004e725bd73f9240c621dc

скрины программы, дабы понять русские символы :D

[evg_m]

если вам что-то нужно проверить

при условии, если в 5-ом разряде razr=1

так и проверяйте данное данное данное дополнительное условие.
Примерный алгоритм
1. вводите дополнительную переменную (и задаете ЕЙ смысл!!!)
например

var
  predrazr: integer; // здесь будет значение ПРЕДЫДУЩЕГО разряда

2. задавайте ей значения в соответствии с придуманной ВАМИ логикой ее использования.(в соответствии со "смыслом")
3. используйте ЕЕ для уточнения условий формирования разрядов.

case of 4 при условии,

[Usandy]

сейчас попробую, спасибо за идею

[Usandy]

немного не понял, переменную внутрь цикла case of, или же вообще дать определенную логику этой переменной до данного цикла?

[Usandy]

решил проблему чуть по другому, в 5-ом разряде I:=i-1 и все пошло спасибо, что хотябы попробовали помочь, ибо на других форумах даже не смотрели на данное тз, очень благодарен!