sequential;

for i := 5 to 95 do

	if trunc((i-5)/6)=((i-5)/6) then
	begin
		if (v(i-1)=1) and (v(i)=1) then		     {for early memories}
			begin
				if v(i+3)>0 then v226:= v226 + 1;	{for type = positive}
				if v(i+3)<0 then v228:= v228 + 1;	{for type = negative}
				if v(i+3)=0 then v227:= v227 + 1;	{for type = 0}
			end;

		if (v(i-1)=2) and (v(i)=1) then		{for recent memories}
			begin									
				if v(i+3)>0 then v229:= v229 + 1;	{for type = positive}
				if v(i+3)<0 then v231:= v231 + 1;	{for type = negative}
				if v(i+3)=0 then v230:= v230 + 1;	{for type = 0}
			end;
end