Переменной t присвоить значение TRUE если в массиве X нет ненулевых элементов - Pascal ABC

const n=4;
var x:array[1..n] of integer;
    i,tmp:integer;
    t:boolean;
begin
    t:=true;i:=1;
    for i:=1 to n do
     begin
      x[i]:=-5+random(11);
      if (x[i]=0)or((i>1)and(tmp*x[i]>0)) then t:=false;
      write(x[i]:4);
      tmp:=x[i];
     end;writeln;
    writeln(t)
end.