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

var  a: array [1..10] of integer;  i: byte;  max: integer;  beginrandomize;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.