Помогите пожалуйста как определить ровна ли сумма двух первых цифр 4 х-значного…

var st: string; s,s1,i,n,c,a,b: integer; beginread (a); str (a,st); s: =0; s1: =0; for i: =1 to 4 do beginval (st[i],n,c); if (i=1) or (i=2) then s: =s+n else s1: =s1+n; end; if s1=s then write ('Да') else write ('Нет'); end.