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

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