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