Pascal преобразовать слово "компьютер" в "копье" (операция над строками)

Var s:string;
begin
s:= 'компьютер';writeln(s);delete(s,3,1);delete(s,5,2);delete(s,6,1);writeln(s);end.