Дан массив натуральных чисел из пяти элементов найти наибольший элемент .срочно пж люди выручайте

Program zadacha;vara: array[1..5] of byte;i,max: byte;beginmax:=0;for i:=1 to 5 do begin a[i]:=random(255); write(a[i]:4);end;writeln;
for i:=1 to 5 doif a[i]gt;max then max:=a[i];
writeln(max=,max);
end.