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

Дмитрий Кулаков

Есть программа, которая выводит на экран слова, которые больше 6 символов. А нужно сделать так, что бы программа удаляла эти слова

Вот код:

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.

1 чел.