Помогите пожалуйста очень нужно!!!!!!!!умоляю в Паскале прошу это работа над ошибками

const m = 100; var i,n,s,mx: integer;     a: array[1..m] of integer; begin   write('размер массива: ');  readln(n);   randomize;   s:=0;  mx:= -12;   writeln('исходный массив: ');   for i:=1 to n do   begin     a[i]:=random(-11,34);     write(a[i],' ');     if (a[i]<0) and (a[i]>mx) then mx:=a[i];     if ((a[i]>0) and (a[i] mod 2 = 1)) then s:=s+a[i];    end;   writeln;   writeln('максимальный среди отрицательных: ',mx);   writeln('сумма нечетных положительных: ',s); end. размер массива: 15 исходный массив:  17 -10 17 0 5 2 26 9 27 8 21 19 18 5 21  максимальный среди отрицательных: -10 сумма нечетных положительных: 141