работа со строками

program EvgeniiSp;
const
 symb = ['.',',','?','!'];
var
 i, words: integer;
 w, sent: string; 
begin
 w:='';
 writeln('Введите предложение: ');
 readln(sent);
 writeln('Получившееся предложение: ');
 for i:=1 to length(sent) do
  begin
   if (sent[i] <> ' ') and not (sent[i] in symb) 
    then w:=w+sent[i]
    else if length(w) >= 4
          then begin write(w,' '); w:=''; end
          else begin words:=words+1; w:=''; end;
     
  end;
 writeln('.'); 
 writeln('Число исключенных слов: ',words); 
end.

program EvgeniiSp;
const
 symb = ['.',',','?','!',':',';','-',' '];
var
 i, words: integer;
 w, sent: string; 
begin
 w:='';
 writeln('Введите предложение: ');
 readln(sent);
 writeln('Получившееся предложение: ');
 for i:=1 to length(sent) do
  begin
   if not (sent[i] in symb) 
    then w:=w+sent[i]
    else if (length(w) >= 4) or ((w = '') and (sent[i] in symb))
          then begin write(w,sent[i]); w:=''; end
          else begin words:=words+1; w:=''; end;
     
  end;
 if sent[i] in symb
  then writeln(sent[i])
  else writeln;
 writeln('Число исключенных слов: ',words); 
 readln;
end.