1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

program teststring;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const s = 'Max liebt Elli aber Elli liebt Chris';
var
 position : integer;
 ch, text : string;

begin
 position := 0;  //Position auf Null setzen
repeat //1. Wiederholen
 text := '';  // Text bei jedem Durchlauf leeren
 repeat       // 2. Wiederholen
  position := position + 1;  //Position um 1 erhöhen
  ch := copy(s,position,1);  //Ein Zeichen Kopieren
  if ch <> '' then text := text + ch; //Zeichen an Puffer anhängen wenn es kein Leerzeichen ist
 until (ch = ' ') or (position = length(s));  //2. Wiederholen bis ein Leerzeichen erkannt oder String zu Ende ist
 writeln(text);   //Puffer ausgeben
until position = length(s); //1. Wiederholen bis String zu Ende
readln; //Stoppen bis Enter gedrückt
end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure finde;
var suche,text:string;
ergebnis:array[1..6]of string;
i,idx:integer;
begin
idx:=1;
text:=edit1.Text;
suche:=#32;
while pos(suche,text) <> 0 do
begin
i:=pos(suche,text);
ergebnis[idx]:=copy(text,1,i);
delete(text,1,i);
inc(idx);
end;
ergebnis[idx]:=text;
end;