Задача по TEXT(Pascal)

var f:textfile;
    s:string;
    i,j:integer;
    m:set of char;
begin
 m:=['0'..'9'];
 assign(f,'text.txt');
 reset(f);
 while not eof(f) do
  begin
   readln(f,s);
   writeln;
   for i:=1 to length(s) do
    if i=1 then
     begin
      if s[1]='2' then
       for j:=1 to length(s) do
        if s[j] in m then
         write(s[j]) else
         begin
          write(' ');
          break;
         end;
     end
     else
     begin
      if (s='2') and (not (s[i-1] in m)) then
       for j:=i to length(s) do
        if s[j] in m then
         write(s[j]) else
          begin
           write(' ');
           break;
          end;
     end;
  end;
 close(f);