Из вводимого предложения нужно вывести все повторяющиеся слова на экран и подсчитать их количество

{ из вводимого предложения нужно вывести все повторяющиеся слова на экран и подсчитать их количество}
var
  s: string;
  mySet: array of string;
  a: array of integer;
  rep: boolean;
  count: integer;
 
procedure ParseWords(str: string);
var
  word: string;
begin
  word := '';
  str := LowerCase(str);
  str += '.';
  for var i := 1 to length(str) do
    if (str[i] in ['а'..'я', 'ё', '0'..'9']) then 
      word += str[i]
    else if (word <> '') then
    begin
      SetLength(mySet, mySet.Length + 1);
      mySet[mySet.Length - 1] := word;
      word := '';
    end;
end;
 
begin
  readln(s);
  SetLength(mySet, 0);
  ParseWords(s);
  if mySet.Length > 0 then
  begin
    count := 0;
    SetLength(a, count);
    for var i := 0 to mySet.Length - 1 do
      if mySet[i] <> '' then
      begin
        count += 1;
        SetLength(a, count);
        a[count - 1] := 1;
        for var j := i + 1 to mySet.Length - 1 do
          if mySet[j] = mySet[i] then begin a[count - 1] += 1; mySet[j] := ''; end;
      end;
    count := 0;
    rep := false;
    for var i := 0 to mySet.Length - 1 do
      if mySet[i] <> '' then
      begin
        count += 1;
        if a[count - 1] > 1 then
        begin
          rep := true;
          writeln('Слово "', mySet[i], '" повторяется в предложении ', a[count - 1], ' раз.');
        end;
      end;
    if not rep then writeln('В предложении нет повторяющихся слов.');
  end
  else writeln('В предложении нет слов.');
end.