Дан массив из 7 целочисленных элементов. Элементы вводятся с клавиатуры (все

program zz1;
var mas:array[1..7] of integer;
i,max:integer;
begin
for i:=1 to 7 do //вводим семь начальных чисел в массив с клавиатуры
read(mas[i]);
max:=0; //задаем изначальное значение наибольшего числа
for i:=1 to 7 do 
if mas[i]gt;max then max:=mas[i]; //проверяем, если число из массива больше максимального, то в наибольшее записываем это число
writeln(максимальный элемент массива=,max); // выводим ответ

end.