Сортировка чисел

const cf=['0'..'9'];
var f,g:text;
    s,s1:string;
    i,j,k:integer;
begin
assign(f,'1.txt');
reset(f);
assign(g,'2.txt');
rewrite(g);
while not eof(f) do
 begin
  readln(f,s);
  delete(s,1,pos(',',s)-1);
  k:=0;
  while (pos(',',s)>0)and(k<5) do
   begin
    delete(s,1,pos(',',s));
    inc(k);
   end;
  if k<5 then writeln(g,'')//если нет 5 запятых, введем пустую строку
  else
   begin
    s:=','+s;//вернем пятую запятую  в начало оставшейся строки
    i:=2; //будем выделять подстроки-числа
    while i<=length(s) do
    if(s[i] in cf)and not(s[i-1] in cf) then
     begin
      s1:='';
      j:=i;
      while (j<=length(s))and (s[j] in cf) do
       begin
        s1:=s1+s[j];
        j:=j+1;
       end;
      write(g,' ',s1);
      i:=i+length(s1);
     end
   else i:=i+1;
   writeln(g,'');
  end;
 end;
close(f);
reset(g);
i:=0;
j:=0;
while not seekeof(g) do
 begin
  read(g,k);
  if(k in [0..10]) then inc(i);
  if(k in [11..20]) then inc(j);
 end;
writeln('Количество чисел из интервала [0..10]=',i);
writeln('Количество чисел из интервала [11..20]=',j);
close(g);
end.

writeln(g,s1);

  writeln(g,s1);
      i:=i+length(s1);
     end
   else i:=i+1;
//   writeln(g,'');
  end;

const cf=['0'..'9'];
var f,g:text;
    s,s1:string;
    i,j,k:integer;
begin
assign(f,'1.txt');
reset(f);
assign(g,'2.txt');
rewrite(g);
while not eof(f) do
 begin
  readln(f,s);
  delete(s,1,pos(',',s)-1); //удалим дату и время
  //удалим все по 5 запятую
  k:=0;
  while (pos(',',s)>0)and(k<5) do
   begin
    delete(s,1,pos(',',s));
    inc(k);
   end;
  if k<5 then writeln(g,'')//если нет 5 запятых, введем пустую строку
  else
   begin
    while not(s[1] in cf)do delete(s,1,1);//пока первая не цифра, удаляем
    s1:='';
    i:=1; //будем выделять первое число после 5 запятой
    while (i<=length(s))and (s[i] in cf) do
     begin
      s1:=s1+s[i];
      i:=i+1;
     end;
    writeln(g,s1);
  end;
 end;
close(f);
reset(g);
i:=0;
j:=0;
while not seekeof(g) do
 begin
  read(g,k);
  if(k in [0..10]) then inc(i);
  if(k in [11..20]) then inc(j);
 end;
writeln('Количество чисел из интервала [0..10]=',i);
writeln('Количество чисел из интервала [11..20]=',j);
close(g);
end.