Лёгкая по паскалю! составьте программу, которая позволяет удалить из слова x те буквы, которые встречаются в слове z. слова x и z введите с клавиатуры.

Var x,z: string;
i: integer;
begin
x:= 'клавиатура';
z:= 'буква';
for i:=1 to length(z) do
 while pos(z[i],x)>0 do delete (x,pos(z[i],x),1);
writeln(x);
end.

Результат:
литр