Из текста выбрать числа и записать в массив. Предполагается, что количество встречающихся чисел не более 10 — Pascal(Паскаль)

program asd;
const
 n = 10;
 ch = ['1','2','3','4','5','6','7','8','9','0'];
var
 i,c: byte;
 s: string;
 a: array[1..n] of byte;
Begin
 c:= 1;
 readln(s);
 for i:= 1 to length(s) do begin
  if c >= 10 then
   break;
  if s[i] in ch then begin
   val(s[i],a[c]);
   inc(c);
  end;
 end;
 for i:= 1 to n do
  write(a[i],' ');
end.