Составить программу которая складывает введенные числа (3 числа) program z1; var s:string ;

Составить программу которая складывает введенные числа (3 числа) program z1; var s:string ;a,b,c,p,r,t,y,z,x,u,o: integer; begin writeln ('ввежите пример '); readln (s); p:=pos('+',s); a := val (copy(s,1,p-1),a,r); delete (s,1,p); t:=pos('+',s); x:=val (copy(s,1,t-1),y,r); delete (s,1,t); z:= val (copy(s,1,z-1),u,r); o:=a+t+x; writeln ('сумма равна',o); end. вот что получилось но чет не робит исправьте кто может пожалуйста