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

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