Имеется массив из N итоговых оценок студента.Если студент является неуспевающим(имеются оценки ниже 4),то замените все его неудовлетворительные оценки

Var A:array[1..100] of integer;
    i,n:byte;
    sr:real;
    f:boolean;
Begin
    Randomize;
    write('Кол-во оценок студента: ');readln(n);
    For i:=1 to n do
    Begin
      A[i]:=random(4)+2;
      write(A[i]:2);
    End;
    f:=true;
    For i:=1 to n do
     if A[i]<4 then f:=false;
    writeln;
    if f then 
    Begin
      For i:=1 to n do
       sr:=sr+A[i];
      writeln('Средний балл = ',sr/n:0:2);
    End
    else
    For i:=1 to n do
    Begin
      if A[i]<4 then A[i]:=4;
      write(A[i]:2);
    End;
    readln;
End.