Дан целочисленный массив из 30 элементов, которые могут принимать значения от 0 до 100 – учащихся за итоговый тест по информатике. напишите программу, которая подсчитывает и выводит на экран средний класса, и также разность между ним и максимальным значением. нужна полная программа на языке паскаль авс.

Var max,sum,sred,razn:real;i:integer;mas:array[1..30] of integer;beginRandomize;max:=mas[1];for i:=1 to 30 dobeginmas[i]:=random(1,100);end;writeln('оценки класса');for i:=1 to 30 dobeginwrite(mas[i],' ');if(mas[i]>max) then max:=mas[i];sum:=sum+mas[i];end;sred:=sum/30;razn:=sred-max;writeln();writeln('среднее = ',sred);writeln('сумма оценок= ',sum);writeln('разность ',razn);end.