Записи о студентах (Блок-схема)

Const n=15;
Var A,B:array[1..n] of byte;
    i,k,imax,imin:byte;
    sr:real;
Begin 
    sr:=0;k:=0;
    For i:=1 to n do
     Begin
      write('Введите возраст ',i,'-го студента: ');readln(A[i]);
      sr:=sr+A[i];
      if A[i]>18 then 
       Begin
       
        inc(k);
        B[k]:=A[i];
       End;
     End;
    imax:=1;imin:=1;
    For i:=2 to n do
     Begin
      if A[i]>A[imax] then imax:=i;
      if A[i]<A[imin] then imin:=i;
     End;
    writeln('Самый молодой студент под номером: ',imin,' его возраст ',A[imin]);
    writeln('Самый старший студент под номером: ',imax,' его возраст ',A[imax]);
    writeln('Средний возраст студентов: ',sr/n:0:2);
    writeln('Студентов старше 18лет: ',k);
    writeln('Массив из студентов чей возраст >18');
    For i:=1 to k do
     write(B[i],' ');
    readln;
    
    end.