ввести с клавиатуры массив из 5 элементов найти максимальный и минимальный из них

var max, min : integer;      a:array[1..5] of integer;max:=0;min:=0;beginfor i:=1 to 5 do readln(a[i]);for i:=1 to 5 do beginif a[i]<min thenmin:=a[i];if a[i]>max thenmax=a[i];end;writeln('Максимальный:',max,',минимальный: ',min);end.проверь на паскале только)