Дано слово . Добавить к нему вначале и конце столько звездочек , сколько букв в этом слове .

var i:integer;
var slovo:string;
begin
  write('Vvedite slovo: ');
  readln(slovo);
   for i:=1 to length(slovo) do
     slovo:='*'+slovo+'*';
  writeln(slovo);
  readln;
end.