Создать массив из 10 случайных чисел. Вывести его на экран. Все элементы массива поделить на значение наибольшего элемента этого массива и так-же вывести на экран.срочноо

var a:array[1..10] of Real;i: Integer;max:real;beginmax:=0;WriteLn('Исходный массив'); for i:=1 to 10 do begin a[i] := random(10); Write(a[i]:3:1,' '); if a[i]>max then max:=a[i]; end; WriteLn; WriteLn('Итоговый массив'); for i:=1 to 10 do begin a[i] := a[i]/max; Write(a[i]:3:1,' '); end;end.