Нужно немножко изменить код

var
  s, c: string;
  n: integer;
 
begin
  readln(s); 
  s := s + ' ';
  while (pos(' ', s) <> 0) do
  begin
    c := copy(s, pos(' ', s) + 1, length(s));
    delete(s, pos(' ', s), length(s));
    if length(s) > 6 then begin
      n:= n + 1; {нужно поменять вот эту строчку}
      writeln(s)
    end;
    s := c; 
  end;
  writeln('Таких слов: ', n);
end.

var s: string;
    i,j,k,q:integer;
begin
readln(s);
s:=' '+s+' ';
i:=1;
q:=0;
while i<=length(s) do
if (s[i]<>' ')and(s[i-1]=' ') then
 begin
  j:=i;
  k:=0;
  while(j<=length(s))and(s[j]<>' ') do
   begin
    k:=k+1;
    j:=j+1;
   end;
  if k>6 then
   begin
    delete(s,i,k+1);//удалим слово и побел за ним
    q:=1;
   end;
  i:=i+1;
 end
else i:=i+1;
s:=trim(s);//удалим пробелы в начале и в конце
if q=0 then writeln('Слов из более 6 букв нет')
else writeln(s)
end.

var s, c, r: string;
n: integer;
begin
writeln('Введите предложение: ');
readln(s);
s:= s + ' ';
r:='';
while (pos(' ', s) <> 0) do
begin
c := copy(s, pos(' ', s) + 1, length(s));
delete(s, pos(' ', s), length(s));
if length(s) < 6 then r:=r+' '+s;
s := c;
end;
writeln(r);
end.

var s, c, r: string;
    n: integer;
begin
writeln('Введите предложение: ');
readln(s);
s:= s + ' ';//добавим пробел в конец исходной строки
r:='';//результирующая строка пока пустая
while (pos(' ', s) <> 0) do//пока в исходной строке есть пробелы
 begin
  c := copy(s, pos(' ', s) + 1, length(s)); //копируем часть строки за первым пробелом
  delete(s, pos(' ', s), length(s)); //удаляем все кроме первого слова
  if length(s) < 6 then r:=r+' '+s;//если длина первого слова <6 добавим его в результирующую строку
  s := c; //запомним часть строки за первым пробелом
 end;
writeln(r);//вывод  результирующей строки
end.