Работа со строками

uses crt;
const cf=['0'..'9'];{цифры}
var s,s1:string;{исходная и вспомогательная строки}
    i,k,j,t,c:integer;{разные счетчики и переменные целого типа}
    a:array[1..10]of integer;{массив}
begin
clrscr;
writeln('s=');
readln(s);
i:=1;k:=0;
while i <=length(s) do{пока не конец строки}
 begin
  if s[i] in cf then{если встретили цифру}
   begin
     k:=k+1;{считаем начало числа}
     s1:='';{заводим дополнительно строку}
     j:=i;{запоминаем начало числа}
     while s[j] in cf do{пока идут сподряд цифры}
      begin
       s1:=s1+s[j];{записываем их в строку}
       j:=j+1;{идем дальше}
      end;
     val(s1,t,c);{кончились цифры, преобразуем строку в число}
     a[k]:=t;{запишем в массив}
     i:=i+length(s1){переходим к символу за числом}
   end
  else i:=i+1;{если не цифра, смотрим следующий символ}
 end;
for i:=1 to k do
write(a[i],' ');{выводим массив}
readln
end.