Дан текст. Найти слово в тексте отличающиеся не более, чем на два символа — Pascal(Паскаль)

program dg;

var
  s, sl: string;
  m: array [1 .. 100] of string;
  i, j, k, p, n, kol: integer;

begin
  write('Vvedite TEXT (slova cerez PROBEL):  ');
  readln(s);
  write('ISCEM - ? :  ');
  readln(sl);
  i := 0;
  repeat
    inc(i);
    p := pos(' ', s);
    m[i] := copy(s, 1, p - 1);
    delete(s, 1, p);
  until p = 0;
  n := i;
  m[n] := s;
  writeln('Naideno:');
  writeln;
  for i := 1 to n do
  begin
    kol := 0;
    for j := 1 to length(sl) do
      if pos(sl[j], m[i]) <> 0 then
        inc(kol);

    if (length(m[i]) - kol) < 3 then
      writeln('*', m[i]);
  end;

  readln;

end.