Удалить из строки слова, содержащие заглавные буквы - Free Pascal

Формулировка задачи:

var s,w,z:string;
i,n:byte;
k:boolean;
begin
writeln('Введите строку: ');
readln(s);
s:=s+' ';
z:=s;
n:=pos(' ',s);
while n<>0 do
begin
w:=copy(s,1,n);
delete(s,1,n);
for i:=1 to length(w) do
if upcase(w[i])=(w[i]) then k:=true;
if k=true then delete(z,pos(w,z),length(w));
n:=pos(' ',s);
end;
writeln(z);
end.

вроде все правильно, но почему-то выдает пустую строку

Решение задачи: «Удалить из строки слова, содержащие заглавные буквы»

Листинг программы

if k then

Объяснение кода листинга программы

Задана переменная k типа boolean, которая принимает значение true или false.
Если значение переменной k равно true, то выполняется следующий блок кода.
В этом блоке кода удаляются слова из строки, которые содержат заглавные буквы.
Для этого используется цикл, который проходит по каждому слову в строке.
Внутри цикла проверяется, содержит ли текущее слово заглавные буквы.
Если слово содержит заглавные буквы, то оно удаляется из строки.
После выполнения цикла, обновленная строка сохраняется в переменную s.
Код продолжает выполняться, пока не будет выполнено условие выхода из программы или цикла.