Problem z wyszukiwaniem wzorca w tekście

 program Statystyka;

uses
crt;

var
  tekst, wzorzec: string;
  i, j, poczatek, rozmiar_pliku : integer;
  tosamo: boolean;
  plik : text;
  tablica_string : array[0..1000] of string;
  dl_wzorca, dl_tab : byte;

procedure szukaj;      // wyszukiwanie wzorca w lini
begin
  for i:=1 to length(tablica_string) do

      if tablica_string[i]=wzorzec[1] then
      begin
           poczatek:=i;
           for j:=1 to length(wzorzec) do
               if tablica_string[i+j-1]=wzorzec[j] then  tosamo:=true else tosamo:=false;
      end;
end;

procedure wczytywanie;
begin
    i := 0;
    assign(plik, 'plik.pas');
    reset(plik);
    while not eof(plik) do
      begin
        inc(i);
        readln(plik, tablica_string[i]);

      end;
    rozmiar_pliku := i;
    close(plik);
end;

begin
  clrscr;
  randomize;

  wczytywanie;

  write('Podaj wzorzec: '); readln(wzorzec);

  dl_wzorca := length(wzorzec);
  dl_tab := length(tablica_string[1]);
  writeln('Dlugosc slowa wzorcowego wynosi: ',dl_wzorca);
  writeln('Dlugosc 1 komorki tablicy wynosi: ',dl_tab);

  for i:=1 to dl_wzorca do
  writeln('   ', wzorzec[i]);

  for i:=1 to rozmiar_pliku do
      begin
           szukaj;
      end;

  tosamo:=false;

  writeln('Rozmiar pliku: ', rozmiar_pliku);
  writeln();
 { for i:=1 to rozmiar_pliku do
      begin                                // wypisanie kolejnych linii tekstu
          writeln(tablica_string[i]);
      end;  }
  writeln();

  if tosamo then
  begin

       writeln('Wystepuje od pozycji ', poczatek, ' do pozycji ', poczatek+length(wzorzec)-1);

       for i:=1 to length(wzorzec) do
       begin

            write('s[', i+poczatek-1 , ']=');
            if wzorzec[i]=chr(32) then write('spacja') else write(wzorzec[i]);
            writeln;

       end;
  end
  else writeln('Nie wystepuje');

  readln;
end.

var
  LastPos, I: Integer;
begin
  LastPos := Pos(wzorzec, tekst);
  while (LastPos > 0) do
    begin
      Writeln(LastPos);
      LastPos := PosEx(wzorzec, tekst, LastPos); 
    end;
end;

LastPos := PosEx(wzorzec, tekst, LastPos); 

LastPos := PosEx(wzorzec, tekst, LastPos + 1); 

 program Statystyka;

uses
crt, StrUtils;

var
  wzorzec: string;
  rozmiar_pliku, a : integer;
  plik : text;    // plik.pas wczytywany do programu
  tablica_string : array[0..1000] of string;    // tablica stringów zawierająca kolejne linie tekstu z pliku .pas
  dl_wzorca, dl_tab1, dl_tab2, dl_tab3 : byte;
  nr_linii : array[0..100] of integer;

procedure wczytywanie;     // wczytywanie kolejnych linijek tekstu z pliku plik.pas do tablicy stringów: 1 linia = 1 komórka
var
  i : integer;
begin
    i := 0;
    assign(plik, 'plik.pas');
    reset(plik);
    while not eof(plik) do
      begin
        inc(i);
        readln(plik, tablica_string[i]);

      end;
    rozmiar_pliku := i;    // tyle ile linii w danym pliku taki jego rozmiar
    close(plik);
end;

procedure szukanie_zmiennych;
var
   z, i, j, k, LastPos : integer;  // LastPos przechowuje numer pozycji, w ktorym wystepuje wzorzec w danej linii (stringu)
   nr_pozycji_wzorca : array[0..100] of integer;
   wzorzec : string;
   slowo_klucz : array[1..3] of string;
   koniec : array[1..3] of shortint;
begin
     wzorzec := ('var');
     z := 1;
     for i := 1 to rozmiar_pliku do        // od 1 do ilosci linii
     begin                                                  // Pos(wzor, szukany_tekst)
          LastPos := Pos(wzorzec, tablica_string[i]);    // do LastPos zapisuje pierwsze miejsce wystapienia wzorca w danej linii
          while (LastPos > 0) do        // dopoki plik sie nie skonczy
          begin
               nr_pozycji_wzorca[z] := LastPos;      // zapisanie do tablicy kolejnych numerow w stringu wystapienia wzorca
               nr_linii[z] := i;
               writeln('linia nr: ',i);    // wypisanie aktualnej linii w ktorej jest wzorzec
               inc(z);

               j := i;          // zmienna pomocnicza j do poniższej pętli repeat

               slowo_klucz[1] := ('procedure');
               slowo_klucz[2] := ('function');        // slowa kluczowe ktore wystepuja po deklaracjach zmiennych w programach,
               slowo_klucz[3] := ('begin');
               repeat
                     k := 1;        // zmienna do petli
                     repeat
                           koniec[k] := Pos(slowo_klucz[k], tablica_string[j]);     // do tablicy koniec[1,2,3] wpisywane sa pozycje znalezienia slowa kluczowego
                           inc(k);                               // jezeli nie znajdzie, to jest wpisane 0
                     until(k > 3);          // bo 3 slowa kluczowe

                     if koniec[1] = 0 then
                     if koniec[2] = 0 then            // jezeli nie znaleziono slowa klucz to wypisuje kolejna zmienna
                     if koniec[3] = 0 then
                        begin
                             writeln(tablica_string[j]);    // wypisanie linii ze zmienna
                             inc(j);                        // przejscie do kolejnej linii
                        end;
               until((koniec[1] <> 0) or (koniec[2] <> 0) or (koniec[3] <> 0));   // petla dziala do znalezienia slowa kluczowego, wtedy wiadomo, że
               writeln();                                                         // deklaracje zmiennych się skończyly

            // writeln(LastPos);    // wypisanie pozycji w stringu na ktorej zaczyna sie wzorzec
               LastPos := PosEx(wzorzec, tablica_string[i], LastPos + 1);    // do LastPos przypisuje sie kolejny numer w ktorym znaleziono wzorzec
          end;                                           
     end;
end;

begin

wczytywanie;  // wczytanie linii tekstu do tablicy              

szukanie_zmiennych;

readln;
end.