Вывести на экран слова, содержащие три буквы

Program Slova_V_Predlozhenii;
uses GraphABC, crt;
var p, schetchikPOL, schetchikOTR, shtchkSLOV, delsymbols, schetchikTRI : integer;
    slova, startSLOVA, stroka : string;
 
begin
SetWindowCaption('Анализ слов, составляющих предложение!');
 TextColor(Black);
 TextBackground(White);
clrscr;
schetchikPOL := 0;
schetchikOTR := 0;
schetchikTRI := 0;
shtchkSLOV := 0;
delsymbols := 0;
Write('Введите предложение: ');
Read(slova);
WriteLn;
slova := slova + ' ';
startSLOVA := slova;
while (Pos('?', slova) > 0) do begin delete(slova, Pos('?', slova), length('?')); delsymbols := delsymbols + 1; end;
while (Pos('!', slova) > 0) do begin delete(slova, Pos('!', slova), length('!')); delsymbols := delsymbols + 1; end;
while (Pos('(', slova) > 0) do begin delete(slova, Pos('(', slova), length('(')); delsymbols := delsymbols + 1; end;
while (Pos(')', slova) > 0) do begin delete(slova, Pos(')', slova), length(')')); delsymbols := delsymbols + 1; end;
while (Pos('.', slova) > 0) do begin delete(slova, Pos('.', slova), length('.')); delsymbols := delsymbols + 1; end;
while (Pos(',', slova) > 0) do begin delete(slova, Pos(',', slova), length(',')); delsymbols := delsymbols + 1; end;
while (Pos('_', slova) > 0) do begin delete(slova, Pos('_', slova), length('_')); delsymbols := delsymbols + 1; end;
while (Pos('[', slova) > 0) do begin delete(slova, Pos('[', slova), length('[')); delsymbols := delsymbols + 1; end;
while (Pos(']', slova) > 0) do begin delete(slova, Pos(']', slova), length(']')); delsymbols := delsymbols + 1; end;
while (Pos('- ', slova) > 0) do begin delete(slova, Pos('- ', slova), length('- ')); delsymbols := delsymbols + 1; end;
while (Pos(' -', slova) > 0) do begin delete(slova, Pos(' -', slova), length(' -')); delsymbols := delsymbols + 1; end;
while (Pos(':', slova) > 0) do begin delete(slova, Pos(':', slova), length(':')); delsymbols := delsymbols + 1; end;
while (Pos(';', slova) > 0) do begin delete(slova, Pos(';', slova), length(';')); delsymbols := delsymbols + 1; end;
while (Pos('"', slova) > 0) do begin delete(slova, Pos('"', slova), length('"')); delsymbols := delsymbols + 1; end;
if (slova <> '') and (not (slova = ' ')) then begin
if (startSLOVA <> slova) then
begin
WriteLn('Было удалено лишних символов: ',delsymbols,' шт.');
WriteLn('Удалили лишние символы, получили:');
WriteLn('{ ',UpperCase(slova),'}');
end else begin
WriteLn('Лишних символов не обнаружили, сканируем предложение!');
WriteLn('{ ',UpperCase(slova),'}');
end;
WriteLn;
  p := Pos(' ', slova);
  WriteLn('Раскладываем предложения на отдельные слова!');
  while p > 0 do
  begin
    stroka := copy(slova, 1, p-1);
    if (Pos('1',stroka) > 0) or (Pos('2',stroka) > 0) or (Pos('3',stroka) > 0) or (Pos('4',stroka) > 0) or (Pos('5',stroka) > 0)
    or (Pos('6',stroka) > 0) or (Pos('7',stroka) > 0) or(Pos('8',stroka) > 0) or (Pos('9',stroka) > 0) or (Pos('0',stroka) > 0) then
    begin
    WriteLn('Объект [',stroka,'] содержит цифры, поэтому будет исключен из списка слов!');
    stroka := '';
    end;
    
    if (length(stroka) = 3) then begin schetchikTRI := schetchikTRI +1;  end;
    
    delete(slova, 1, p + length(' ') - 1);
    p := Pos(' ', slova);
  end;
  WriteLn;
WriteLn('Подсчёт закончен!');
WriteLn('Количество слов из трёх букв: ',schetchikTRI);
end else begin
  WriteLn('Были удалены все лишние символы, слов не осталось. Завершаем программу!');
  exit;
  end;
end.