Question

В одномерном массиве вычислить максимальный элемент.
var k, m: integer;
Dat: array[1..8] of integer;
begin
Dat[1] := 7; Dat[2] := 7;
Dat[3] := 6; Dat[4] := 8;
Dat[5] := 4; Dat[6] := 5;
Dat[7] := 15; Dat[8] := 7;
m := Dat[1];
for k := 2 to 8 do begin
if Dat[k] > m then
m:= Dat[k];
end;
write(m);
end.