[PASCAL] Plik tekstowy

[Kaburagi 0]

Witam!

Mam problem z szukaniem słów w plikach tekstowych.

Zrobiłem taki program:

 

program
      Z_FSearch;
uses
   crt,dos;
var
  plik:text;
  znak:char;
  dalej,jest:boolean;
  slowo,szukana,s:string;
  licznik,ile,i,x,t,j,wiersz:integer;


function menu:char;
begin
    clrscr;
    writeln('[Z] Zapisywanie do pliku');
    writeln('[O] Odczyt pliku');
    writeln('[K] Kasowanie pliku');
    writeln('[u] Szukanie po znaku');
    writeln('[s] Szukanie po slowie');
    writeln('[Esc] Koniec programu');
    menu:=upcase(readkey);
end;

procedure zapis;
begin
    clrscr;
    if fsearch('prog.txt','')='' then
            rewrite(plik);
            append(plik);
            dalej:=true;
            writeln('Zakoncz, koniec');
                              repeat
                                    readln(slowo);
                                    if (slowo='koniec') then
                                       dalej:=false
                                                   else
                                                       writeln(plik,slowo);

                              until not dalej;

end;
procedure odczyt;
begin
    clrscr;
    reset(plik);
                while not eof(plik) do
                      begin
                           readln(plik,slowo);
                           writeln(slowo);
                      end;
end;

procedure kasowanie;
begin
    clrscr;
    erase(plik);
    writeln('Plik zostal skasowany!');
end;

procedure znaki;
begin
    clrscr;
    writeln('Podaj znak, ktory chcesz wyszukac: ');
    znak:=readkey;
    reset(plik);
    repeat
    readln(plik,slowo);
    x:=length(slowo);
    for i:=1 to x do
    if znak=slowo[i] then
       licznik:=licznik+1;
    until eof(plik);
    writeln;
    write('Znak ',znak,' wystepuje ',licznik,' razy');

end;

procedure slowa;
begin
end;

begin
assign(plik,'prog.txt');
repeat
clrscr;
licznik:=0;
    case menu of
         'Z':
             zapis;
         'O':
             odczyt;
         'K':
             kasowanie;
         'U':
             znaki;
         'S':
             slowa;
         #27:
             begin
                  close(plik);
                  halt;
             end;
    end;
readln;
until false;
end.

 

Działa dobrze, ale pomimo tego, że zrobiłem szukanie po znaku, nie wychodzi mi szukanie po całym słowie. Zastanawiałem się trochę jak to zrobić, i jedyne dwa pomysły jakie wydały mi się realne, to odliczanie w wierszu do spacji i sprawdzanie słów przed i po, jak i rozbicie szukanego słowa na poszczególne litery i porównywać od pierwszej do ostaniej np:

 

w pliku wpisane mamy:

 

ludzie to tylko ludzie

 

szukając słowa "ludzie" znajdowało mi tylko 1 słowa, bo sprawdzało, czy istnieje w wierszu... jakieś sugestie jak zrobić by działało lub jak wcielić w życie któryś z powyższych metod?

[Kaburagi 0]

do kasacji ;]