Подсчитать число вхождений заданого слова в текст

var s1,s2:string;
i,k,p:integer; x:string;
begin
writeln('Введите текст:');
readln(s1);
readln(s2);
p:=length(s1);
k:=1;
for i:=1 to p  do begin
if s1[i] = s2 then k:=k+1;
end;
writeln(k);
 readln();
end.

var s1,s2,s3, vsp:string;
i,k,p,r,p1,p2,d:integer; 
begin
writeln('Введите текст:');
readln(s1);
writeln ('введите слово');
readln(s2);
p:=length(s1);
p2:=length(s2);
k:=0;
d := 1;
 while p2 > d do begin //получение промежутка
 s3+=vsp;
 vsp := s1[d];
 d:= d + 1;
 end;
 for i:=1 to p  do begin //получение данных о совпадении промежутка со словом
  if s3 = s2 then k:=k+1;
  p1 := p1 + 1;
  p2 := p2 + 1;
end;
writeln(k);
writeln(d);
writeln(s3);
end.

program uznatkolvoslov;
var 
x, s1, s2 : string; //х - промежуток, s1 - текст, s2 - слово
d, i, e, r: integer;
begin
writeln ('введите текст ') ; readln (s1);
writeln ('введите слово ') ; readln (s2);
i := length (s2);
d := 0;
e := length (s1);
while e > r do begin
while i>d do begin //получение промежутка
 d := d + 1;
 x+=s1[d];
 end;
 if x = s2 then r := r + 1;
 
 end;
 writeln ('количество слов:', r);
 end.

var f: text;
    s, w: string;
    k: integer;
begin
  repeat
    write('Введите слово: ');
    readln(w);
    if pos(' ', w) > 0 then writeln('Слово не может содержать пробел, повторите ввод.')
  until pos(' ', w) = 0;
  w := ' ' + w + ' ';
  k := 0;
  assign(f, 'test.txt');
  reset(f);
  while not eof(f) do
    begin
      readln(f, s);
      s := ' ' + s + ' ';
      while pos(w, s) > 0 do
        begin
          delete(s, pos(w, s), length(w) - 1);
          inc(k)
        end
    end;
  close(f);
  write('Количество вхождений слова в файл: ', k);
  readln
end.