Wyszukiwania

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.