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

var
s, s1: string;
i: integer;
begin
write('Введите строку: '); readln(s);
s1:='';
for i:=1 to length(s) do s1:=s1+'*';
s:=s1+s+s1;
writeln('Результат: ',s);
end.

Введите строку: ш54еш
Результат: *****ш54еш*****