В наличие 12 предметов, нужно найти самый тяжелый и самый легкий предмет? Составьте программу на языке программирования Pascal

Var i, max, min: integer; mas:array[1 ... 12] of integer; begin for i : = 1 to 12 do read (mas[i]) ; max:=mas[1]; min:=mas[1]; for i:=1 to 12 do begin if mas[i] > max then max:=mas[i]; if mas[i] < min then min:=mas[i]; end; write (max,' ', min) ; end.