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

Есть два способа это сделать.
Первый:
var s:string;
begin
s:='компьютер';
delete(s, 3,1); //удалим букву 'M'
delete(s, 5,2); // удалим 'ЮТ'
delete(s, 6,1); //удалим 'Р'
write(s); // выведем оставшиеся буквы, которые образуют слово копье
end.
Второй:
var s, ans:string;
begin
s:='компьютер';
ans:=ans+copy(s,1,2); //скопируем 'КО'
ans:=ans+copy(s,4,2); //скопируем 'ПЬ'
ans:=ans+copy(s,8,1); //скопируем 'Е'
writeLN(ans); // выведем результат
end.