Найти количество вхождений строки s2 в строку s1 — Pascal(Паскаль)

var
  i, j, k: integer;
  p: boolean;
  s1, s2: string;
begin
  writeln('vvedite stroku s1');
  readln(s1);
  writeln('vvedite stroku s2');
  readln(s2);
  k := 0;
  for i := 1 to length(s1)
  do
    begin
      p := true;
      for j := 1 to length(s2)
      do
        if s2[j] <> s1[i + j - 1]
        then
          p := false;
      if p
      then
        inc(k)
    end;
  writeln(k);
  readln
end.