Дана строка символов ( 2-3 строки ) в файле F1, состоящая из слов , отделенных друг от друга пробелами - Pascal ABC - Ответ 10386728

var
   i, m, index_begin, index_end, tmp: integer;
   s: string;
   f, f1: boolean;
 
begin
   reset(input, 'c:\\input.txt');
   rewrite(output, 'c:\\output.txt');
   readln(s);
   read(m);
   s := s + ' ';
   
   tmp := 0;f := true;f1 := false;
   for i := 1 to length(s) do
   begin
      
      if(s[i] = ' ') then
      begin
         if(f1 = true) then 
         begin
         index_end := i - 1;
         break;
         end;
         f := true;
      end;
      
      if(s[i] <> ' ') then
      begin
         if(f) then 
         begin
            tmp := tmp + 1;
            f := false;
         end;
      end;
      
      if(tmp = m) then
      begin
         if(f1 = false) then index_begin := i;
         f1 := true;
      end;
      
   end;
   
   delete(s, index_begin, index_end);
   write(s);
end.