В одновременном массиве X (15) найти сумму и произведение элементов и выбрать из них наибольшее. ПАСКАЛЬ

Если я всё правильно понял, то вот:var x: array [0..15] of integer;      sum,pr,i,max:longint;begin  randomize;  sum:=0;  pr:=1;  For i:=1 to 15 do x[i]:=random(5)+1;  For i:=1 to 15 do  begin    sum:=sum+x[i];    pr:=pr*x[i];  end;  if pr>sum then max:=pr else max:=sum;  writeln(max);end.