Написать программу, которая вводит с клавиатуры не пустой массив…

var a: array [1… 100] of integer; i,n,min,max: integer; Begin read (n); for i: =1 to n do read (a[i]); min: =a[1]; max: =a[1]; for i: =1 to n do begin write (a[i],'); if maxa[i] then min: =a[i]; end; writeln (min,max); End.