Паскаль, помогите пожалуйста! Найти минимальный и максимальный элемент в…

vara: array [1… 10] of integer; i,max,min,x: integer; beginmax: =0; min: =0; for i: =1 to 10 doread (a[i]); for i: =1 to 10 dobegin if a[i]>max then max: =a[i]; if a[i]