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

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