Дан одномерный массив A[n]. Знаменито что в нём имеется 0. Найти

Program naconecto;const n=5;varA:array[1..n] of integer;i,sum:integer;BEGINsum:=0;randomize;for i:=1 to n do  begin    a[i]:=random(-5,5);    if a[i]lt;gt;0 then      begin        sum:=sum+1;      end    else      begin        break;      end;  end;writeln('cyMMa=',sum);END.