ПАСКАЛЬ дано натуральные число н и действительные числа а1, а2 ... ан. Найти минимальное и максимальное число

var n,i:integer; a,max,min:real;  begin write('n = '); readln(n); readln(a); max:=a; min:=a; for i:=1 to n-1 do  begin  readln(a);  if a>max then max:=a;  if a