Procedure in Procedure aufrufen klappt nicht

[Sir Rufo]

Man sieht es besser, wenn man den gesamten Kontext betrachtet und den alten Code auskommentiert:

Delphi-Quellcode:

procedure String_Zaehler(
  var T : Textfile; // Datei, in der gesucht werden soll (als Textfile-Referenz)
   s : string; // Suchtext
   var Anz : Integer // Anzahl der gefundenen Stellen
 );
var
  position,laenge:integer;
  text:string;
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);
     // -- alt --
     // inc( ANZ ); // ANZ hochzählen

     // -- neu --
     IF Position > 0 then
     begin
       inc( Position ); // ANZ hochzählen
     end;
  end;
end;