[boom)]

Всем привет! Имеется программа поиска слова по алгоритму Рабина - Карпа

Код:

function Karp(s,x:string):longint;
var hs1,hs2:longint;
    i:integer;
begin
  crsn:=0;
  hs1:=Hash(x,1,length(x));
  for i:=1 to length(s)-length(x) do
    begin
      inc(crsn);
      hs2:=Hash(s,i,length(x)); // <- Вот тут
      if (x=copy(s,i,length(x))) and (hs1=hs2) then
        begin
          Karp:=i;           break;
        end;
    end;
    form1.Comp2.text:=inttostr(crsn);
end;



function Hash(st:string; nr,dl:integer):longint;
var i,h:integer;
begin
  h:=0;
  for i:=nr to nr+dl-1 do h:=(h*125+ord(st[i])) mod 1356;
  Hash:=h;
end;

Но мой преподаватель говорит, что мол хеш не меняется а должен все время пересчитываться. Отнимать старое и добавлять новое. Как то так он и сказал в месте где я пометила. Но я что то не понимаю(( Помогите пожалуйста