составить програму поиска большого элемента в масиве из 10 чисел

program mas;Type mass=array[1..10] of integer;var m: mass;i,a: integer;beginfor i:=1 to 10 do beginread(m[i]);end;a:=m[1];for i:=2 to 10 do beginif a<m[i] then a:=m[i];end;writeln(a);end.Вот программа с вводом данных в массив и нахождение большего элемента в нём