с 5-ым заданием.. Написать код или как это правильно назвать, в общем, типо как на втором фото. Очень нужна .

Program task5;     var v: string;   ch,p: integer;   begin    writeln('введите число');   readln (ch);     case ch of      1: v: = ('один');       2: v: = ('два');       3: v: = ('три');     4: v: = ('четыре');     5: v: = ('пять');     6: v: = ('шесть');     7: v: = ('семь');         8: v: = ('восемь');     9: v: = ('девять');     10: v: = ('десять');       11: v: = ('одиннадцать');     12: v: = ('двенадцать');     13: v: = ('тринадцать');       14: v: = ('четырнадцать');     15: v: = ('пятнадцать');       16: v: = ('шестнадцать');     17: v: = ('семнадцать');     18: v: = ('восемнадцать');     19: v: = ('девятнадцать');     20: v: = ('двадцать' );     21,22,23,24,25,26,27,28,29: begin p: =(ch mod 10); v: = ('двадцать' ); end;     30: v: = ('тридцать ');     31,32,33,34,35,36,37,38,39: begin p: =(ch mod 10); v: = ('тридцать' ); end;     40: v: = ('сорок');     41,42,43,44,45,46,47,48,49: begin p: =(ch mod 10); v: = ('сорок' ); end;     50: v: = ('пятьдесят ');     51,52,53,54,55,56,57,58,59: begin p: =(ch mod 10); v: = ('пятьдесят' ); end;     60: v: = ('шестьдесят ');       61,62,63,64,65,66,67,68,69: begin p: =(ch mod 10); v: = ('шестьдесят' ); end;     70: v: = ('семьдесят ');     71,72,73,74,75,76,77,78,79: begin p: =(ch mod 10); v: = ('семьдесят '); end;     80: v: = ('восемьдесят ');       81,82,83,84,85,86,87,88,89: begin p: =(ch mod 10); v: = ('восемьдесят' ); end;     90: v: = ('девяносто ');     91,92,93,94,95,96,97,98,99: begin p: =(ch mod 10); v: = ('девяносто ' ); end;     100: v: =('сто');     end;     writeln(v,p);   end. так оно по крайней мере запускается. но нет обработки переменной p, по ней надо делать отдельный case of.