Напишите программу которая считывает 5 целых чисел определяет и печатает наибольшее и наименьшее из них

const n = 5;

var a: array [1..n] of integer; i, amax, amin: integer;

begin randomize; for i := 1 to n do begin a[i] := random (100) - 50; write ( a[i], \' \' ); end; writeln; amin := a[1]; for i := 2 to n do if a[i] < amin then amin := a[i]; amax := amin; for i := 2 to n do if a[i] > amax then amax := a[i]; writeln ( \'Максимальный элемент равен: \', amax, \'.\' ); writeln ( \'Минимальный элемент равен: \', amin, \'.\' );end.