Задан ряд символов. Добавить до начала ряда слово «begin», в конце ряда слово «end». Определить длину полученного ряда — Pascal(Паскаль)

var
a:string;
begin
readln(a);
a:='begin '+a+' end';
writeln(a);
writeln(length(a));
end.

var
  s:string;
begin
  readln(s);
  insert('begin',s,1);
  s:=s+'end';
  writeln(s);
  writeln('Результат: ',Length(s))
end.