Как узнать, содержится ли в одномерном массиве единица?

pr:=1;
sum:=0;
t:=true;
randomize;
for i:=1 to n do
begin
 a[i]:=random(10)-3;
 if a[i]=1 then t:=true;
 pr:=pr*a[i];
 sum:=sum+a[i];
end;
if t then writeln(sum)
else writeln(pr);

program mass1;
 
const
  n = 20;
 
var
  i: integer;
  a: array[1..n] of integer;
  b: boolean;
  sum, pr: integer;
 
begin
  sum := 0;
  pr := 1;
  for i := 1 to n do
  begin
    a[i] := Random(2); //заполнить его случайными числами из интервала [0,1]
    write(a[i],' ');
    if a[i] = 1 then
    begin
      b := true;
    end;
  end;
  for i := 1 to n do
  begin
    if b = true then
    begin
      sum := sum + a[i];
    end
    else
    begin
      pr := pr * a[i];
    end;
  end;
  if b = true then
    write('       ',sum)
  else
    write('       ',pr);
end.

  for i := 1 to n do
  begin
    a[i] := Random(2); //заполнить его случайными числами из интервала [0,1]
    write(a[i],' ');
    if a[i] = 1 then
    begin
      b := true;
    end;
  end;