ЛЁГКАЯ ЗАДАЧА ПО ПАСКАЛЮ! Составьте программу, которая позволяет удалить из слова X те буквы, которые встречаются в слове Z. Слова X и Z введите с клавиатуры.

var x,z: string;i: integer;beginx:= 'клавиатура';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.Результат:литр