Chybu ti o zakrici, protoze pristupujes k prvku retezce, ktery neexistuje. PomocnyString je prazdny.

Pokud chces znat delku retezce, pouzij funkci Length(), nebudes muset retezec pretypovavat na PChar.

Tvuj puvodni upraveny priklad:

var PomocnyString : string;
    i : integer;
begin

  for i:= 1 to Length(s) do
   begin
    if (s[i] <> ' ') then
       PomocnyString := PomocnyString + s[i]
    else
      break;
   end;
end;