Написать программу на паскале . из слова "молоко" надо получить слово "молоток" заранее

Специально для этого задания решила изучить строковый тип) Так что могут быть недочеты =)
var  a, b: string;
begin  a := 'молоко';
  delete(a, 6, 1);
  b := 'то';
  insert(b, a, 5);
  write(a);
end.

Var s:string;
    z,y,x,v:char;
begin
read(s);
z:=s[1];
y:=s[2];
x:=s[3];
v:=s[4];
write(z,y,x,v,'ток');
end.