Дан массив А(7). Найти максимальный элемент массива.

program ar;var arr:array[1..7] of integer;      i,h:integer;beginh:=0;for i:=1 to 7 dobeginreadln(arr[i]);if arr[i] > h then h:=arr[i];end;write(h);end.