Recorrer un string y actuar segun palabras leidas

[vcs]

Ahora mucho mas claro, pero aun asi perdona mi ignoracia pero entiendo que Result es lo que va a devolver la funcion ¿no? esque en el PseudoBasic que he programado no existian las funciones y todavia me lio porque por ejemplo ni entiendo muy bien la definicion de la funcion

function PrimeraPalabra(o : string) : string;

entiendo que PrimeraPalabra es el nombre de la funcion, a continuacion
(o:string) querra decir que se va a usar esa variable de tipo Sting
y :String que el resultado de la funcion de PrimeraPalabra será del
tipo String

¿eso seria igual que decir lo siguiente?

Funcion PrimeraPalabra:string;
var
o:String;
Begin
...
Por otro lado en la segunda Funcion

function Restofrase(o : string) : string;
begin
if Pos(' ',o) = 0 then
result := ''
else
result := Copy(o,Pos(' ',o)+1,1000);
end;comprobamos si hay alguna posicion en la haya un ' ' pero eso ya se ha hecho en la primera funcion ¿no? y por otro lado en la ultima expresion usamos copy(o,Pos(' ',o)+1,1000) pero al hacer eso suponemos que hay 1000 caracteres en el String entonces no se copiaran todos los signos raros esos que veo cuando uso el depurador #$D ¿?

Asias por tu paciencia y siento hacer unas preguntas tan simples.