extraction

program extraction;
uses wincrt;
var
ch:string;
n,m:integer;
ex:boolean;
function ext1(c:string):integer;
var
c1:string;
e,i,l:integer;
begin
c1:='';
for i:=1 to length (c) do
begin
if c[i] in ['0'..'9'] then c1:=(c1+c[i]);
end;
Val(c1,l,e);
ext1:=l;
end;
procedure ext2(c:string;var k:integer);
var
i,e:integer;
c1:string;
begin
c1:='';
for i:=length(c) downto 1 do
begin
if c[i] in ['0'..'9'] then c1:=(c1+c[i]);
end;
val(c1,k,e);
end;
function cont(c:string):boolean;
var
i:integer;
existe:boolean;
begin
existe:=false;
for i:= 1 to length(c) do
begin
if (c[i] in ['0'..'9']) then existe:=true;
end;
cont:=existe;
end;
begin
writeln('entrer la chaine');
readln(ch);
ex:=cont(ch);
if (ex=false) then writeln('il n"y a aucun nombre')
else
begin
n:=ext1(ch);
ext2(ch,m);
writeln('le premier nbre est ',n,' le deuxième nbre est ',m);
end;
writeln('Press <Enter> To Quit');
  readln();
end.