Пусть задан текст, представляющий собой последовательность строк. Признак конца текста вводится пользователем. Выведите на печать в столбец все слова текста — Pascal(Паскаль)

uses crt;
var
s,sub:string;
begin
readln(s);
while pos('  ',s)<>0 do
delete(s,pos('  ',s),1);
while pos(' ',s)<>0 do begin
sub:=copy(s,1,pos(' ',s));
delete(s,1,pos(' ',s));
writeln (sub);end;
writeln(s);
end.