Wyszukiwania

Dobra. Napisałem takie źródło :

program wyszukiwarka;

const
        m = 100;
        n = 100;

var
    TabT : array [1..n] of Char;
    TabP : array [1..m] of Char;
    j,i,s : integer;

begin
        writeln('Wpisz tekst : ');
        readln(TabT);
        writeln('Wpisz wzorzec : ');
        readln(TabP);

        s:=0;
        while s <= n-m do
        begin
        j:=1;
        while j< m+1 do
        if TabP[j]=TabT[s+j] then j:=j+1 else writeln('Elementu nie odnaleziono !');
        if j=m+1 then write ('P wystepuje w T od pozycji' , s+1);
        s:=s+1;
        end;


readln;
end.

Czy ktoś może mi napisać dlaczego to nie działa.
Z góry dzięki.

użyj debugera, bdziesz miał rozwiązanie problemu dużo szybciej
s <= n-m
s = 0,1...
n-m=0
więc pętla wykona się tylko raz.

ŁF dzięki za pomoc, ale jeszcze jedna sprawa, gdzie ja mam to wsawić ?? Z pascalem mam do czynienia od tygodnia i dlatego pytam. Dzięki z góry

// nigdzie - pokazałem Ci, gdzie jest błąd, jak tego nie rozumiesz, to przerób najpierw jakiś kurs - ŁF