Определение среднего возраста в классе

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
const n=30;
 
type
  uchenik = record
    fm: string; // Ôàìèëèÿ
    Rost: Integer; //ðîñò â ñàíòèìåòðàõ
  end;
 
 
var
  klass : array[0..n-1] of uchenik;
  i,min,sum:integer;
  med: Real;
begin
  min := maxint;
  sum := 0;
  med := 0;
  for i:=0 to n-1 do
    begin
      Writeln('Vvedite familiyu ', i+1,'-ogo uchenika');
      Readln(klass[i].fm);
      Writeln('Vvedite rost ', i+1,'-ogo uchenika');
      Readln(klass[i].Rost);
    end;
  for i:=0 to n-1 do
    begin
      if klass[i].Rost < min then min := klass[i].Rost;
      sum := sum+klass[i].Rost;
    end;
  med := sum/n;
  Writeln('Minimalnyi rost: ', min,' santimetrov');
  Writeln('srednyi rost: ', med:3:2,' santimetrov');
  readln;
end.

const n=30;    // количество учеников в классе
 
type
  uchenik = record
    fm: string; // Фамилия
    Rost: Integer; //рост в сантиметрах
  end;
 
 
var
  klass : array[0..n-1] of uchenik;     // класс
  i,min,sum:integer;
  med: Real;
begin
  min := maxint;
  sum := 0;
  med := 0;
  for i:=0 to n-1 do     // ввод данных об учениках
    begin
      Writeln('Vvedite familiyu ', i+1,'-ogo uchenika');
      Readln(klass[i].fm);
      Writeln('Vvedite rost ', i+1,'-ogo uchenika');
      Readln(klass[i].Rost);
    end;
  for i:=0 to n-1 do     // нахождение минимального роста и суммы всех ростов
    begin
      if klass[i].Rost < min then min := klass[i].Rost;
      sum := sum+klass[i].Rost;
    end;
  med := sum/n;  // сумму ростов делим на количество учеников в классе
  //то есть среднее арифметическое
  Writeln('Minimalnyi rost: ', min,' santimetrov');  //вывод мин.
  Writeln('srednyi rost: ', med:3:2,' santimetrov'); //вывод сред.
  readln;
end.