Procedure in Procedure aufrufen klappt nicht

[EMS]

mhh hab da jetzt einfach raus gemacht und geht nich

Delphi-Quellcode:

begin
while not eof(T) do
begin
     Readln(T,Text);        //lesen aus T(Tist LDatei) und in Text zwischen speichern
     Position:=pos(s,Text);   //Position von s(Eingabe aus Edit1.text)in Text bestimmen
     laenge:=LENGTH(s);     //Länge von dem Wort anzeigen
     delete(Text,position,laenge);  //Wort löschen (aus Text) an Position des Ersten Bustabens
                                    //mit der länge(aus laenge);
     IF Position > 0 then
     begin
     inc(Position);                 //ANZ hochzählen
     end;

end;
end;