9класс информатика,решите в форме паскаль

Const n = 27; var a:array[1..n] of integer; i,max:integer; begin   max:=-20;   for i:=1 to 27 do begin     a[i]:=random(41)-20;     if a[i]>max then max:=a[i];     write(a[i]:4);   end;   writeln;   writeln('Максимальное: ',max); end.