Определить, будут ли максимальный и минимальный элемент массива одного знака

var c: array [1..100] of integer;
     max, min, i, n: integer;
begin
 write('n = ');
 readln(n);
 max:= -1000000;
 min:= 1000000;
 writeln('Исходный массив:');
 for i:= 1 to n do
  begin
   c[i]:= random(41)-15;
   if c[i]> max then max:= c[i];
   if c[i]< min then min:= c[i];
   write(c[i]:4);
  end;
 writeln;
 writeln('min = ', min, '; max = ', max);
 if max*min>0
  then writeln('Одного знака')
  else writeln('Разных знаков')
end.

  min:=-15*Random(41); max:=min; c[1]:=min; Wrte(c[1]:4);
  for i:=2 to n do begin
   c[i]:=-15+random(41); Write(c[i]:4);
   if max<c[i] then max:=c[i]
   else if min>c[i] then min:=c[i];   
  end;

  for i:=1 to n do c[i]:=-15+Random(41);
  min:=c[1]; max:=min;
  for i:=2 to n do
    if max<c[i] then max:=c[i]
    else if min>c[i] then min:=c[i];   
  for i:=1 to n do Write(c[i]:4); WriteLn;