ПОМОГИТЕ ПОЖАЛУЙСТА 9 КЛАСС ИНФОРМАТИКАМассив задан целыми числами: 10,

ПОМОГИТЕ ПОЖАЛУЙСТА 9 КЛАСС ИНФОРМАТИКА
Массив задан целыми числами: 10, 1,12,16,5,18,19,17,21,10,11. Что будет написано по окончании работы программки? Составить таблицу трассировки для программы:



var m, i : integer;

Mas : array[1..10] of inyeger;

begin

n:=mas[1];

for i:=2 to 10 do

if mas[i]gt;n then n:=mas[i];

write(n);

end.