Составить программу на вход количества чисел,а затем вводятся сами числа. Составить программу для нахождения макс и мин из этих чисел. Помогите. Каким образом делать, не знаю.

//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016) var a,i,min,max,n:integer; begin   write('Введите количество чисел ');   readln(n);   min:=MaxInt; //считаем, что мимнимальное - самое большое целое   max:=-MaxInt;//считаем, что максимальное - самое маленькое целое   for i:=1 to n do begin     readln(a);     if a>max then max:=a;     if a