var count_2: integer;
...
s1:=poch;
while s1<>nil do begin
count_2 := 1;
for i:= 1 to 4 do if s1^.y.ocinky[i] = 2 then dec(count_2);
if count_2 < 0 then { данные, на которые указывает s1, нужно удалять }
s1:=s1 ^.cc;
end;
while s1<>nil do begin
count_2 := 1;
for i:= 1 to 4 do if s1^.y.ocinky[i] = 2 then dec(count_2);
if count_2 < 0 then s1:=s1 ^.cc; { Вот так расценивается твоя программа !!! }
end;
If count_2 < 0 Then Delete(s1)
else s1 := s1^.cc;