Найти слово, которое входит максимальное количество раз в предложение. Паскаль, помогите!

  • var
     n:array[1..1000] of integer;
     _word:array[1..1000] of string;
     ch,str:string;
     j,k,i,max:integer;
    begin
     readln(str);
     ch:=»;
     k:=0;
     for i:=1 to Length(str) do
      if (str=’ ‘) or (i=Length(str)) then
      begin
       if i=Length(str) then
        ch:=ch+str[i];
       k:=k+1;
       _word[k]:=ch;
       ch:=»;
      end
      else
       ch:=ch+str[i];
     for i:=1 to k do
      for j:=1 to k do
       if _word[i]=_word[j] then
        n[i]:=n[i]+1;
    max:=n[1]; 
    for i:=1 to k do
     if max<n[i] then
      max:=n[i];
     if max=1 then
      writeln(‘Ни одно слово не повторяется’)
     else
      writeln(_word[max]);
    end.