Задана строка-предложение. Необходимо найти слова, длина которых равна 5 символам,и удалить их из строки. Вывести получившуюся строку — Pascal(Паскаль)

const
  delimiter = [#32, ','];
type
  TWords = array[1 .. 50] of string;
 
 
function GetWords(s: string; var words: TWords): integer;
var
  i, back, n: integer;
begin
  i := 1;
  n := 0;
  while i <= length(s) do begin
 
    while (i <= length(s)) and (s[i] in delimiter) do inc(i);
    if i <= length(s) then begin
      back := i;
      while (i <= length(s)) and not(s[i] in delimiter) do inc(i);
      inc(n);
      words[n] := copy(s, back, i - back);
    end;
  end;
  GetWords := n;
end;
 
var
  s: string;
  words: TWords;
  i: integer;
 
begin
  write('s = '); readln(s);
  for i := 1 to GetWords(s, words) do
    if length(words[i]) <> 5 then writeln(words[i], ' ');
  readln;
end.