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

 i1:=0;
  for i:=1 to ksl do 
  begin 
    pr:=false;
    for j:=1 to i-1 do
    if sl[i]=sl[j] then begin pr:=true; break; end;
    if pr then continue;
    inc(i1);
    kol[i1]:=1;
    sl[i1]:=sl[i];
    for j:=i+1 to ksl do
    if sl[i]=sl[j] then inc(kol[i1];
  end;
for i:=1 to i1 do
writeln('Слово ',sl1[i],' в тексте встречается- ',kol[i],' раз');

[COLOR="Red"]pr:=false;[/COLOR]
    for j:=1 to i-1 do
    if sl[i]=sl[j] then begin pr:=true; break; end;
    if pr then continue;

var sl,sl1:array[1..40] of string[50];
     kol:arra[1..40] of byte;

function f_bukva(sim:char):boolean;
begin
   if sim in ['а'..'я','ё','А'..'Я','Ё'] then f_bukva:=true
   else f_bukva:=false;
end;
procedure pr_slova(text:string;var ksl:byte;var sl:array[1..40] of string);
var i:byte;
begin
  ksl:=0;
  for i:=1 to length(text) do
  if f_bukva(text[i])  then begin
                              inc(ksl);sl[ksl]:='';
                              while f_bukva(text[i]) do
                              begin
                                sl[ksl]:=sl[ksl]+text[i];
                                inc(i);
                              end;
                            end;
end;