Прошу помочь исправить ошибку.

[bhopperz]

uses crt;
type
nazw=array[0..9] of String [17];
const
ed:nazw=('zero','one','two','three','four','five','six','seven','eight','nine');
des:nazw=('','twenty','thirty','forty','fifty','sixty','seventy','eighty','ninety'');
sot:nazw=('','hundred','two hundred','three hundred','four hundred','five hundred','six hundred','seven hundred','
                                                                                 eight hundred','nine hundred'');
dd:nazw=('','eleven','twelve','thirteen','fourteen','fiveteen','sixteen','seventeen','eighteen','nineteen'');
tis:nazw=('','thousand','two thousand','three thousand','four thousand','five thousand','six thousand','seven thousand','
                                                                               eight thousand',nine thousand'');
s,d,e,x:integer;
st:string;
begin
write('vvedite chislo [0..1000]:');
readln(x);
if x=1000 then st:='thousand' else begin
s:=x div 100;
x:=x mod 100;
st:=sot[s];
d:=x div 10;
e:=x mod 10;
if (d=1) and (e<>0) then st:=st +dd[e] else st:=st+des[d]+ed[d];
end;
writeln(st);
readln;
end.

Друзья, помогите найти ошибку.

[Poma][a]

uses crt;
type
nazw=array[0..9] of String [17];
const
ed:nazw= ('zero','one','two','three','four','five','six','seven','eight','nine');
des:nazw= ('','twenty','thirty','forty','fifty','sixty','seventy','eighty','ninety', '');
sot:nazw= ('','hundred','two hundred','three hundred','four hundred','five hundred','six hundred','seven hundred','eight hundred','nine hundred');
dd:nazw=('','eleven','twelve','thirteen','fourteen','fiveteen','sixteen','seventeen','eighteen','nineteen');
tis:nazw=('','thousand','two thousand','three thousand','four thousand','five thousand','six thousand','seven thousand','eight thousand', 'nine thousand');
var
sd,s,d,e,x:integer;
st:string;
begin
write('vvedite chislo [0..1000]:');
readln(x);
if x=1000 then st:='thousand' else begin
s:=x div 100;
x:=x mod 100;
st:=sot[s];
d:=x div 10;
e:=x mod 10;
if (d=1) and (e<>0) then st:=st +dd[e] else st:=st+des[d]+ed[d];
end;
writeln(st);
readln;
end.

[bhopperz]

Помогай

sd,s,d,e,x:integer - Эта строка

[Poma][a]

Не мучайте старенького Turb'у, возьмите Free Pascal, и наслаждайтесь.
Ошибки Вашей на скрине видно.Поэтому давайте поступим так :
1) Вы ставите Free
2) Копируете Ваш код, с моими поправками из браузера.
3) Жмете Alt + E (в паскале)
4) Выбираете Paste from Winodws.
5) Наслаждайтесь.

[bhopperz]

Сообщение от Poma][a

Не мучайте старенького Turb'у, возьмите Free Pascal, и наслаждайтесь.
Ошибки Вашей на скрине видно.Поэтому давайте поступим так :
1) Вы ставите Free
2) Копируете Ваш код, с моими поправками из браузера.
3) Жмете Alt + E (в паскале)
4) Выбираете Paste from Winodws.
5) Наслаждайтесь.

Окей, так и сделал.