Дан массив с1, с2, ..., с15, состоящий из нулей и единиц. Подсчитать количество нулей,  количество единиц и количество нулей до первой единицы. Это в паскале

uses crt; const max=15; var  a : array[1..max] of integer;  i,k0,k1,k3 : integer;   k:boolean; begin      randomize;      k0:=0;      k1:=0;      writeln('исходные:'); for i:=1 to max do  begin    a[i]:=random(2);    write(a[i]:4);    end; for i:=1 to 15 do begin    if a[i]=0 then inc(k0) else inc(k1);    if a[i]<>0 then k:=true;  if k=false then inc(k3); end;    writeln;    writeln('количество нулей = ',k0);    writeln('количество единиц = ',k1);    writeln('количество нулей до первой единицы = ',k3);    End.