...
var PomocnyString : string;
    i : integer;
begin

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

Na radku s temi vykricniky mi vzdycky vyhodi Range check error, ale nechapu proc. s je parametr typu string a mezera v nem urcite je. Co chci ,aby to delalo: Do promenne PomocnyString potrebuju zkopirovat cast retezce s az po mezeru. Nebo se to snad dela uplne jinak? Pls, poradte mi.