Написать программу в паскале. Удалить из строки все четырехбуквенные слова.

Предыдущий
вопрос Следующий
вопрос

program DeleteFourLetterWords;

va
inputString, outputString, word: string;

function IsFourLetters(word: string): boolean
begi
if Length(word) = 4 the
IsFourLetters := tru
els
IsFourLetters := false
end;

begi
writeln('Enter a string: ')
readln(inputString);

outputString := '';

while inputString <> '' d
begi
word := Copy(inputString, 1, Pos(' ', inputString) - 1)
inputString := Copy(inputString, Pos(' ', inputString) + 1, Length(inputString));

end;

writeln('Result: ')
writeln(outputString)
end.