Сформировать гистограммму длинн слов находящихся в текстовом файле(длинна слова не болеее 256 символов)

Program omega10;
uses crt;
const rz=[' ','.',',','-','?','!'];{ðàçäåëèòåëè ñëîâ, ìîæíî åùå äîáàâèòü}
var s,s1,s2:string;
    d,kb,ks:array[byte] of byte;{òåîðåòè÷åñêè ìîæåò áûòü 1 ñëîâî èç 255 ñèìâîëîâ}
    n,i,j,k,ds:byte;
begin
clrscr;
writeln('Ââåäèòå òåêñò äî 255 ñèìâîëîâ:');
readln(s);
for i:=1 to 255 do
d[i]:=0;{îáíóëÿåì ìàññèâ äëèí ñëîâ}
i:=1;
while i<=length(s) do
if not(s[i] in rz)and ((s[i-1] in rz)or(i=1)) then{åñëè áóêâà, à ïåðåä íåé ðàçäåëèòåëü, èëè îíà ïåðâàÿ}
 begin
  k:=i;ds:=0;
  while not(s[k] in rz)and(k<=length(s))do {ïîêà íå ðàçäåëèòåëü è íå êîíåö ñòðîêè}
   begin
    ds:=ds+1;{ñ÷èòàåì äëèíó ñëîâà}
    k:=k+1;{èäåì âïåðåä}
   end;
  d[ds]:=d[ds]+1;{â ÿ÷åéêó ñ íîìåðîì=äëèíå ñëîâà +1}
  i:=i+ds;{èíà÷å ïðîñòî ïåðåïðûãèâàåì}
 end
else i:=i+1;{åñëè íå ñëîâî, èäåì âïåðåä}
{äëÿ ïðîâåðêè âûâåäåì èñõîäíûå äàííûå
è ñîáåðåì èõ â ñæàòûé ìàññèâ äëÿ ïîñòðîåíèÿ ãèñòîãðàììû}
writeln('Êîëè÷åñòâî ñëîâ ïî äëèíå:');
n:=0;
for i:=1 to 255 do{ïðîâåðÿåì ìàññèâ äëèí ñëîâ}
if d[i]>0 then{åñëè íå íîëü}
 begin
  n:=n+1;{ñ÷èòàåì}
  kb[n]:=i; {êîëè÷åñòâî áóêâ=äëèíà ñëîâà}
  ks[n]:=d[i];{êîëè÷åñòâî ñëîâ äàííîé äëèíû}
 end;
for i:=1 to n do
writeln(kb[i],' - ',ks[i]);
{readln;
clrscr;}
{ñòðîèì ãèñòîãðàììó, ïî ãîðèçîíòàëè äëèíà ñëîâ, ïî âåðòèêàëè èõ êîëè÷åñòâî}
readln;
end.