Pascal

Bonjour
svp ci peux quelqu un peux me corriger ce programe pour afficher les chiffir en texte (de mode numerique au mode texte)
merci d'avonce


program convertion;
uses crt;
var a: integer;
function chiffres(x:integer):string;

var r:string;
begin
case x of
0:r:= ' ';
1:r:= 'un';
2:r:= 'deux';
3:r:= 'trois';
4:r:= 'quatre';
5:r:= 'cinq';
6:r:= 'six';
7:r:= ' sept';
8:r:= 'huit';
9:r:= 'neuf';
10:r:= 'dix';
11:r:= 'onze';
12:r:= 'douze';
13:r:= 'treize';
14:r:= 'quatorze';
15:r:= 'quinze';
16:r:= 'seize';
17:r:= 'dix-sept';
18:r:= 'dix-huit';
19:r:= 'dix-neuf';
end;
chiffres:=r;
end;

function dizaines(x:integer):string;
var r:string;
begin


case x of
0:r:= ' ';
1:r:= 'dix';
2:r:= 'vingt';
3:r:= 'trente';
4:r:= 'quarente';
5:r:= 'cinquante';
6:r:= 'soixante';
7:r:= ' soixante-dix';
8:r:= 'quatre-vingt';
9:r:= 'quatre-vingt-dix';
end;
dizaines:=r;
end;

function centaines(x:integer):string;
var r:string;

begin
case x of
0:r:= ' ';
1:r:= 'cent';
2:r:= 'deux-cent';
3:r:= 'trois-cent';
4:r:= 'quatre-cent';
5:r:= 'cinq-cent';
6:r:= 'six-cent';
7:r:= ' sept-cent';
8:r:= 'huit-cent';
9:r:= 'neuf-cent';
end;
end;
function milliers(x:integer):string;
var r:string;
begin
case x of
0:r:= ' ';
1:r:= 'mille';
2:r:= 'deux-mille';
3:r:= 'trois-mille';
4:r:= 'quatre-mille';
5:r:= 'cinq-mille';
6:r:= 'six-mille';
7:r:= ' sept-mille';
8:r:= 'huit-mille';
9:r:= 'neuf-mille';
end;
end;

function millions(x:integer):string;
var r:string;
begin
case x of
0:r:= ' ';
1:r:= 'million';
2:r:= 'deux millions';
3:r:= 'trois millions';
4:r:= 'quatre millions';
5:r:= 'cinq millions';
6:r:= 'six millions';
7:r:= ' sept millions';
8:r:= 'huit millions';
9:r:= 'neuf millions';
end;
end;
begin
clrscr;
write(dizaines(50));

write(chiffres(19));
readln;
end.