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

const N=10;var i,imax,imin,min,max:integer;mas:array[1..N]of integer; beginrandomize; for i:=1 to N domas[i]:=random(21)-10;for i:=1 to N dowrite(mas[i]:4); writeln; imax:=1; max:=mas[1]; for i:=2 to N do if max<mas[i] then 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.