Определить среднюю зарегистрированную скорость всех автомобилей - Pascal ABC

  Uses Crt;
  Var a:Array[1..30] of 0..301;
      i,j,n,max,min,sr:1..30; b:boolean;
Begin
  ClrScr;
  b:=false;
  Writeln('Сколько автомобилей проехали возле камеры');
  Readln(n);
  Writeln('Введите скорость этих автомобилей');
  For i:=1 to n do 
    Begin
      Readln(a[i]);
      If (a[i]=0) or (a[i]=301) Then Halt;
    End;
  max:=a[1];  
  For i:=1 to n do
    If a[i]>max Then Begin max:=a[i]; j:=i; End; 
  a[j]:=0;  
  min:=a[1];
  For i:=1 to n do
    If a[i]<min Then Begin min:=a[i]; j:=i; End;
  a[j]:=301;
  sr:=a[1];
  For i:=1 to n do
    If (a[i]<>301) and (a[i]<>0) and (a[i]>sr) Then sr:=a[i];
  Writeln('Средняя скорость всех автомобилей: ',sr);
  For i:=1 to n do
    If a[i]>=60 Then b:=true Else b:=false;
  If b=true Then Writeln('YES') Else If b=false Then Writeln('NO'); 
End.