Определить количество слов состоящих из менее 5 букв

uses crt;
const pr: set of char=[' ','.',',','!','?',';',':','(',')','"'];
var f: text;
    s,sl: string;
    i: byte;
    k: integer;
begin
assign(f,'D:\in.txt');
reset(f);
while not eof(f) do
      begin
      readln(f,s);
      s:=s+' '; sl:='';
      for i:=1 to length(s) do
          if not (s[i] in pr) then sl:=sl+s[i] else
             if length(sl)>0 then
                begin
                if length(sl)<5 then inc(k);
                sl:='';
                end;
      end;
close(f);
writeln('Слов, длиной <5: ',k);
end.

uses crt;
const rz=[' ',',','.','?','!',';',':'];//разделители слов
var f:text;
    s,s1:string;
    i,j,k:integer;
begin
assign(f,'text.txt');
reset(f);
k:=0;
while not eof(f) do
 begin
  readln(f,s);
  i:=1;
  while i<=length(s) do
  if not(s[i] in rz)and((i=1)or(s[i-1] in rz))then
   begin
    s1:='';
    j:=i;
    while(j<=length(s))and not(s[j] in rz) do
     begin
      s1:=s1+s[j];
      j:=j+1;
     end;
    if length(s1)<5 then k:=k+1;
    i:=i+length(s1);
   end
  else i:=i+1;
 end;
close(f);
write('Количество слов меньше 5 букв=',k);
end.