Язык Паскаль. Дан интервал от - 10 до 10. Найти максимальное и минимальное число.

Const N=10;

var i, imax, imin, min, max:integer;

mas:array[1 ... N]of integer;

begin

randomize;

for i:=1 to N do

mas[i]:=random (21) - 10;

for i:=1 to N do

write (mas[i]:4);

writeln;

imax:=1;

max:=mas[1];

for i:=2 to N do

if max
begin

max:=mas[i];

imax:=i

end;

writeln ('Максимальный элемент=', max);

writeln;

imin:=1;

min:=mas[1];

for i:=2 to N do

if min>mas[i] then

begin

min:=mas[i];

imin:=i;

end;

writeln ('Минимальный элемент=', min);

end.