Определить, сколько раз встречается каждое слово в тексте, вывести на экран самое короткое и длинное слово

uses crt;
var s, w: string;
  max_str, min_str: string;
  k, i, wc: byte; mn:set of char;
begin
  clrscr;
  writeln('vvedite text');
  {readln(s);}
  read(s);
 { s := 'clock is lock or lock his door';}
 
mn:=[',',' ',':',';','/','\','-','_','+','=','*','|','@','#','$','%','^','&','(',')','[',']','{','}','<','>','.',',',':','@'];
 
  {это для поиска слов с минимальной/максимальной длиной}
  max_str := '';
  min_str := s;
 
 
  s := s + ' ';
  k := Pos(' ', s);
  while (k > 0) do
  begin
    w := copy(s, 1, k - 1);
 
  {проверка на слово с максимальной длиной}
    if length(w) >= length(max_str) then max_str := w;
  {проверка на слово с минимальной длиной}
    if length(w) <= length(min_str) then min_str := w;
 
    s := copy(s, k + 1, 255);
    i := Pos(' ' + w + ' ',' ' + s);
    wc := 1;
    while (i > 0) do
    begin
      inc(wc);
      s := copy(s, 1, i - 1) + copy(s, i + length(w) + 1, 255);
      i := Pos(' ' + w + ' ', ' ' + s);
    end;
    writeln('word: ''', w: 5, ''' has been met ', wc, ' times');
    k := Pos(' ', s);
  end;
  WriteLn;
  WriteLn('Word with minimum length: ', min_str);
  WriteLn('Word with maximal length: ', max_str);
  readln;
end.