Заполнить линейный массив из 10 элементов случайными числами от -40 до 40. Найти максимальный элемент массива. Pascal ABC

var
  a: array [1..10] of integer;
  i: byte;
  max: integer;
 
begin
randomize;
max := -100;

for i := 1 to 10 do
begin
  a[i] := random(81) - 40;
  if a[i] > max then max := a[i];
  write(a[i], ' ');
end;

writeln(#13+'Максимальный элемент = ', max);
end.