Слово из 5 символов

var
  s: string;
  i, k: integer;
 
begin
  
  writeln('Введите предложение');
  
  readln(s);
  
  for i := 1 to length(s) do
    if s[i] = ' ' then k += 1;
  for i := 1 to k + 1 do
  begin
    if i = k + 1 then begin //этот if нужен, чтобы учесть последнее слово в строке, которое тоже может быть пятизначным. 
      if length(copy(s, 1, length(s))) = 5 then
        writeln(copy(s, 1, length(s)))
    end;
    
    if length(copy(s, 1, pos(' ', s) - 1)) = 5 then
    begin
      writeln(copy(s, 1, pos(' ', s) - 1));
      delete(s, 1, length(copy(s, 1, pos(' ', s))));
    end
    else delete(s, 1, length(copy(s, 1, pos(' ', s))));
  end;
end.

const
  m = 5;
 
var
  s, w: string;
  i, k: integer;
 
begin
  writeln('Введите строку:');
  readln(s);
  s := s + ' ';
  k := 0;
  w := '';
  writeln('Результат:');
  for i := 1 to length(s) do
    if s[i] <> ' ' then
      begin
        k := k + 1;
        w := w + s[i]
      end
    else
      begin
        if k = m then write(w, ' ');
        k := 0;
        w := ''
      end;
  readln
end.