Когда мы переписываемся, мыКогда мы переписываемся, мы часто используем цифры в нашем тексте. Вам дано одно предложение на английском языке. Нужно найти все цифры, которые встречаются в этом предложений хотя бы один раз

Много лишнего(наверно), только с олимпиады!Как есть.
uses crt;
var b,n,i,k,c,o,x1:integer;
    f,s,ch:string;
    r,g: text;
    A:array [0..9] of integer;
begin
assign (r,C:/Bin.txt);
reset (r);
readln (r,f);
close (r);
for i:=1 to length(f) do
begin
s:=copy(f,1,1);
if (s0) or (s1) or (s2) or (s3) or (s4) or (s5) or (s6) or (s7) or (s8) or (s9)then
delete(f,1,1);
if (s=0) or (s=1) or (s=2) or (s=3) or (s=4) or (s=5) or (s=6) or (s=7) or (s=8) or (s=9)then
begin
x1:=pos(s,ch);
if x10 then
begin
delete(ch,x1,1);
ch:=ch+s;
end
else
ch:=ch+s;
end;
end;
val(ch,n,o);
  N := Abs(N);
  for i := 0 to 9 do
  A[ i ] := 0;
  while N > 0 do
  begin Inc(A[ N mod 10]);
  N := N div 10;
  end;
assign (g,C:/Bout.txt);
rewrite (g);
  for i := 0 to 9 do
  while A[ i ] > 0 do
  begin Write(g,i);
  Dec(A[ i ]);
  end;
  close(g);
end.