Найти максимальное и минимальное количество осадков

uses crt;
const nmax=31;
var a:array[1..nmax] of integer;
    n,i,imx:integer;
    mn,mx,s:integer;
begin
clrscr;
randomize;
repeat
write('Количество дней в месяце от 28 до ',nmax,' n=');
readln(n);
until n in [28..nmax];
writeln('Введите количество осадков по дням от 0 до 100:');
for i:=1 to n do
repeat
write('День ',i:2,'=');
readln(a[i]);
until a[i] in [0..100];
clrscr;
mn:=a[1];
mx:=a[1];
writeln('Количество осадков по дням:');
for i:=1 to n do
 begin
  write(a[i]:4);
  if a[i]<mn then mn:=a[i];
  if a[i]>mx then mx:=a[i];
 end;
writeln;
writeln;
writeln('Максимальное количество осадков=',mx);
writeln('Минимальное количество осадков=',mn);
writeln;
imx:=1;
mx:=0;
for i:=1 to 10 do
mx:=mx+a[i];
writeln('Количество осадков в 1 декаде=',mx);
s:=0;
for i:=11 to 20 do
s:=s+a[i];
writeln('Количество осадков в 2 декаде=',s);
if s>mx then
 begin
  mx:=s;
  imx:=2;
 end;
s:=0;
for i:=21 to n do
s:=s+a[i];
writeln('Количество осадков в 3 декаде=',s);
if s>mx then
 begin
  mx:=s;
  imx:=3;
 end;
writeln('Самая "мокрая" декада ',imx,' кол. осадков=',mx);
readln
end.