Определить тип данных запись , имеющий поля фамилия и оценки по 5 предметам

const n=10;
      m=5;
type std=record
         fam:string[10];
         ocn:array[1..m] of integer;
         kl3:byte;//добавим поле количество троек, так удобнее
         end;
var a:array[1..n] of std;
    i,j,k:byte;
    x:std;
begin
randomize;
writeln('Введите данные');
for i:=1 to n do
 begin
  writeln('Студент ',i);
  with a[i] do
   begin
    write('Фамилия: ');readln(fam);
    kl3:=0;
    for j:=1 to m do
     begin
      ocn[j]:=3+random(3);//можете вводить оценки с клавы, если не лень
      if ocn[j]=3 then inc(kl3)
     end; 
   end;
 end;
writeln('Исходный список студентов');
writeln('--------------------------------------');
writeln('|  Фамилия   |   Оценки   | Кол-во 3 |');
writeln('--------------------------------------');
for i:=1 to n do
with a[i] do
 begin
  write('| ',fam:10,' | ');
  for j:=1 to m do
  write(ocn[j]:2);
  writeln(' |',kl3:6,'    |');
 end;
writeln('---------------------------------------');
k:=0;
for i:=1 to n do
if a[i].kl3<2 then k:=1;//проверяем есть лм студенты с тройками меньше 2
if k=0 then
 begin
  writeln('Нет студентов с количеством троек меньше 2');
  readln;
  exit//если нет, завершаем программу
 end; 
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i].fam>a[j].fam then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x
 end;
writeln('Список студентов, у котрых не более 1 тройки по алфавиту');
writeln('--------------------------------------');
writeln('|  Фамилия   |   Оценки   | Кол-во 3 |');
writeln('--------------------------------------');
for i:=1 to n do
with a[i] do
if kl3<2 then
 begin
  write('| ',fam:10,' | ');
  for j:=1 to m do
  write(ocn[j]:2);
  writeln(' |',kl3:6,'    |');
 end;
writeln('---------------------------------------');
end.