uses MyUnit; // подключили модуль var a: array of integer := (1,5,3,7,3,6,4,5,1,8,3,5,6); begin writeln('Максимальный элемент в массиве = ',Max(a)); end.