Описать массви записей, содержащий информацию об итогах сдачи вами сессии в институте

type
  sessia = record
    FIO: string[100];
    ball: real;
  end;
 
var
  a: array[1..100] of sessia;
  i, n: integer;
  sum, sr: real;
 
begin
  writeln('кол-во человек');
  readln(n);
  for i := 1 to n do 
  begin
    with a[i] do 
    begin
      writeln('ФИО');
      readln(FIO);
      writeln('балл');
      readln(ball);
    end;
  end;
  for i := 1 to n do 
  begin
    writeln(a[i].FIO, ' ', a[i].ball);
  end;
  sum := 0;
  sr := 0;
  writeln;
  for i := 1 to n do 
  begin
    sum := sum + a[i].ball;
  end;
  sr := sum / n;
  writeln(sr);
end.

uses crt;
const n=1;
type student=record
      name:string;
      hyst,math,infm,engl:integer;
      sr:real;
     end;
var x:array[1..n] of student;
    i:integer;
begin
ClrScr;
for i:=1 to n do
 with x[i] do
  begin
   Write(' Name: ');
   Readln(name);
   Write(' Hyst: ');
   Readln(hyst);
   Write(' Math: ');
   Readln(math);
   Write(' Infm: ');
   Readln(infm);
   Write(' Engl: ');
   Readln(engl);
  end;
Writeln('Table: ');
for i:=1 to n do
 x[i].sr:=x[i].hyst+x[i].math+x[i].infm+x[i].engl;
Writeln('--------------------------------------------------');
Writeln('|  Name  | Hyst | Math | Infm | Engl || Sr.Ball ||');
Writeln('--------------------------------------------------');
for i:=1 to n do
 Writeln('|',x[i].name:8,'|',x[i].hyst:6,'|',x[i].math:6,'|',x[i].infm:6,
         '|',x[i].engl:6,'||',x[i].sr/4:9:1,'||');
Writeln('--------------------------------------------------');
Readln;
end.