type
  student = record             //опис запису учня
    prizv, name, data: string; //дані про учня
    estimation : array [ 1.. 5 ] of integer; //оцінки
    s_ball : real; //середній бал
  end;
var
  Form1: TForm1;
  x: array [ 0.. 50 ] of student;//масив змінних типу "учень"
  i: integer;      	         //кількість учнів