[beZ_probleM]

i:=0;    // не обизательно обнулять
Str:=''; // не обезательно очищать
getChar(s,i);
i:=i+1;
while i<>' ' do     // пока і не равно "ПРОБЕЛ"
   begin
      str:=str+getChar(s,i);
      i:=i+1;
   end;