Вывести по заданному трехзначному числу словесную запись соответствующего ему количественного числительного — Pascal(Паскаль)

var a,b:integer;
fign:boolean;
s:string;
begin
fign:=false;
ReadLn (a);
b:=a div 100;
case b of
1:s:=s+'Sto ';
2:s:=s+'Dvesti ';
3:s:=s+'Trista ';
4:s:=s+'Chetyresta ';
5:s:=s+'Pyatsot ';
6:s:=s+'Shestsot ';
7:s:=s+'Semsot ';
8:s:=s+'Vosemsot ';
9:s:=s+'Devyatsot ';
end;
 
b:=a div 10;
b:=b mod 10;
case b of
1:fign:=true;
2:s:=s+'Dvadcat ';
3:s:=s+'Tridcat ';
4:s:=s+'Sorok ';
5:s:=s+'Pyatdesyat ';
6:s:=s+'Shestdesyat ';
7:s:=s+'Semdesyat ';
8:s:=s+'Vosemdesyat ';
9:s:=s+'Devyatsot ';
end;
 
 
b:=a mod 10;
if fign=true then
begin
case b of
1:s:=s+'Oddinatcat';
2:s:=s+'Dvenadtact';
3:s:=s+'Trinadtcat ';
4:s:=s+'Chetyrnadtcat ';
5:s:=s+'Pyatnadtcat ';
6:s:=s+'Shestnadtcat ';
7:s:=s+'Semnadtcat ';
8:s:=s+'Vosemnadtcat ';
9:s:=s+'Devyatnadtcat';
end;
end else
 
case b of
1:s:=s+'Odin';
2:s:=s+'Dva';
3:s:=s+'Tri';
4:s:=s+'Chetyre';
5:s:=s+'Pyat';
6:s:=s+'Shest';
7:s:=s+'Sem';
8:s:=s+'Vosem';
9:s:=s+'Devyat';
end;
WriteLn (s);
ReadLn;
 
end.