Дан текст, в котором имеется несколько идущих подряд цифр. получить число, образованное этими цифрами — Pascal(Паскаль)

var
a:string;
i:integer;
begin
writeln('vvedite stroku c ciframi');
readln(a);
repeat
if ( ord(a[1])<48) or (ord(a[1])>57) then delete(a,1,1);
if (ord (a[length(a)])<48) or (ord(a[length(a)])>57)then delete(a,length(a),1);
until (ord(a[1])>=48) and (ord(a[1])<=57)and(ord (a[length(a)])>=48) and (ord(a[length(a)])<=57);
 
 writeln(a);
 readln;
 end.

var
  s: string;
  i: integer;
begin
  ReadLn(s);
  i := 1;
  while i <= Length(s) do
    if s[i] in ['0'..'9'] then
      Inc(i)
    else
      Delete(s, i, 1);
  WriteLn(s);
  ReadLn;
end.