Помогите, пожалуйста, решить задачу на строки. Среди слов заданного предложения найти такое, которое имеет наибольшее количество вхождений в предложение.

Попытка решения задачи:
pascal code
program pr1;
var s:string;
a:array[1..100] of string;
c:array [1..100] of integer;
k,i,j,max:integer;
begin
writeln('Enter');
readln(s);
k:=1;
for i:=1 to length(s) do
begin
if s[i]<>'' then
a[k]:=a[k]+s[i]
else begin
k:=k+1;
end;
end;

for i:=1 to k do
begin
for j:=i+1 to k do
begin
if a[i]=a[j] then
begin
inc(c[i]);
a[j]:='';
end;
end;
end;

max:=0;
for k:=1 to i do
begin
if c[k]>max then max:=c[k];
end;
writeln('Max vhozhd-',a[k],'-', max);
readln;
end.