Пожалуйста помогите решить задачу через delete в программе Pascal ABC. Заранее Спасибо!

var a,b,i:longint;

s:string;

begin

readln(a);

readln(b);

read(s);

delete(s,1,a+b-1);

delete(s,2,length(s)-1);

write(a,'+',b,'=',s)

end.