Дана строка без пробелов. Первый и последний символ строки заменить на “*” — Pascal(Паскаль)

program ffr;

var
  s: string;

begin
  writeln('Vvedite stroku:');
  readln(s);
  s[1] := '*';
  s[length(s)] := '*';
  writeln('Isxodnaia stroka ', s);

end.