дан массив состоящий из 15 чисел.Найти среди их наибольший и малый

program zz1;
const n=15; //задаем количество частей в массиве
var mas:array[1..n] of integer;
i,min,max:integer;
begin
for i:=1 to n do
mas[i]:=random(20)+1; //вводим числа в массив рандомно от 1 до 20
for i:=1 to n do
write(mas[i], ); //выводим числа из массива на экран
writeln; //перебегаем на новейшую строчку для вывода
min:=1000000; //задаем изначальное значение малого числа (максимально вероятное)
for i:=1 to n do
if mas[i]lt;min then min:=mas[i]; //проверяем, если число из массива меньше минимального, то записываем его в малое
write( минимальный элемент массива - ,min); //выводим ответ
writeln; //перебегаем на новейшую строчку для вывода
max:=-1000000; //задаем изначальное значение наибольшего числа (мало возможное)
for i:=1 to n do
if mas[i]gt;max then max:=mas[i]; //проверяем, если число из массива больше наибольшего, то записываем его в наибольшее
write( максимальный элемент массива - ,max); //выводим ответ
end.