Срочно! Помогите! Известны баллы, полученные студентами за контрольную работу. Вычислить максимальный балл.Написать программу в паскале АВС.NET

program maxim;    const n=15 {15 студентов};    var a:array[1..n] of integer;        i,max:integer;    begin    randomize; for i:=1 to n do begin    a[i]:=random(10){кол-во баллов до 15};    write (a[i],'  ');    end;    max:=a[1];    for i:=2 to n do begin    if a[i]>max then max:=a[i];    end;      writeln;      writeln (max);    end.