Помогите решить задачу!
Составьте прогу, к-ая по названию числа<1000, написанному на русском (английском) языке, формирует его цифровую запись
за ранее спасибо!
uses crt;
const
d10:array[1..18] of string =('один','два','три','четыре','пять','шесть','семь','восем','девять',
'одиннадцать',
'двеннадцать','тринадцать','четырнадцать','пятнадцать','шеснадцать','семнадцать','восемданцать','девятнадцать');
d11:array[1..18] of integer =(1,2,3,4,5,6,7,8,9
,11,12,13,14,15,16,17,18,19);
d100:array[1..9] of string =('десять','двадцать','тридцать','сорок','пятдесят','шестьдесят',
'семдесят','восемдесят','девяносто');
d111:array[1..9] of integer=(10,20,30,40,50,60,70,80,90);
d1000:array[1..9] of string=('сто','двесте','тристо','четыресто','пятьсот','шестьсот','семьсот','восемьсот','девятьсот');
d1111:array[1..9] of integer=(100,200,300,400,500,600,700,800,900);
var s:string;
result:integer;
i,j,n,bdigit:integer;
Begin
clrscr;
result:=0;
readln(s);
i:=1;
while i<=length(s) do
begin
while(i<=length(s))and(s[i]=#32) do
inc(i);
if i<=length(s) then
begin
bdigit:=i;
while (i<=length(s))and(not(s[i]=#32)) do
inc(i);
for j:=1 to 18 do
if copy(s,bdigit,i-bdigit)=d10[j] then
inc(result,d11[j]);
for j:=1 to 9 do
if copy(s,bdigit,i-bdigit)=d100[j] then
inc(result,d111[j])
else
if copy(s,bdigit,i-bdigit)=d1000[j] then
inc(result,d1111[j]);
end;
end;
writeln('Result=',result);
readln;
end.