Преобразовать строку, оставив в ней только символы, являющиеся цифрами

uses crt;
procedure zamena(var s:string);
var i:byte;
begin
for i:=length(s) downto 1 do
if not(s[i] in ['0'..'9']) then delete(s,i,1);
if length(s)=0 then write('В строке нет цифр, все символы удалены')
else
 begin
  for i:=1 to length(s) do
  if s[i]='0' then s[i]:='Z'
  else s[i]:=chr(ord(s[i])+16);
  write(s)
 end;
end;
var s:string;
begin
writeln('Введите строку, содержащую цифры');
read(s);
zamena(s)
end.

uses crt;
const nmax=15;
type mtr=array[1..nmax,1..nmax] of real;
procedure matrix(var a:mtr;var m,n:byte);
var i,j:byte;
begin
repeat
write('Количество строк до ',nmax,' m=');
read(m);
until m in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' n=');
read(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=9*random;
    write(a[i,j]:5:2);
   end;
  writeln;
 end;
end;
function sred(a:mtr;m,k:byte):real;
var i:byte;
    sr:real;
begin
sr:=0;
for i:=1 to m do
sr:=sr+a[i,k];
sred:=sr/m
end;
var a:mtr;
    m,n,j:byte;
begin
randomize;
matrix(a,m,n);
for j:=1 to n do
writeln('Среднее в столбце ',j,'=',sred(a,m,j):0:2);
end.

uses crt;
function zamena(s:string):string;
var i:byte;
begin
for i:=length(s) downto 1 do
if not(s[i] in ['0'..'9']) then delete(s,i,1);
for i:=1 to length(s) do
if s[i]='0' then s[i]:='Z'
else s[i]:=chr(ord(s[i])+16);
zamena:=s
end;
var s:string;
begin
writeln('Введите строку, содержащую цифры');
read(s);
if length(zamena(s))=0 then write('В строке нет цифр, все символы удалены')
else write(zamena(s))
end.