Cклавиотуры вводится натуральное число, которое определяет кол-во вводимых чисел с клавиотуры целых значений. пользователь вводит указанное кол-во целых значений.а программа выводит самое большое и самое маленькое значение из вводмимых. напишите программу на !

Program n1;
var a,min,max,i,n: integer;
begin
readln(n);
readln(a);
min:=a;
max:=a;
for i:=2 to n do
begin
readln(a);
if a>max then max:=a;
if a<min then min:=a;
end;
writeln('min=',min);
write('max=',max);
end.

//PascalABC.NET 3.3,сборка 1611 от 06.01.2018

//Внимание! Если программа не работает, обновите версию!

begin

var mas:= readarrinteger('Введите элементы массива :',readinteger('n='));
 Writeln('Найбольшое число =',mas.Max);

Writeln('Найменьшее число=',mas.Min);

end.