В заданном слове замените первый и последний символы на символ «*»

В заданном слове замените первый и последний символы на символ «*».

program zad_9_nica;
var s1: string;
BEGIN
   writeln ('Введите слово:');
   readln (s1);
   s1:='*' + Copy(s1, 2, (Length(s1)-2)) + '*';
   writeln ('Результат:');
   writeln (s1);
END.