Составить список абитуриентов, допущенных ко второму экзамену

uses crt;
var i,count:integer;
a:array[1..50]of integer;
begin
randomize;
count:=0;
writeln('Первый екзамен сдало 50 человек');
for i:=1 to 50 do
begin
a[i]:=random(10)+1;
if a[i]>3 then inc(count);
end;
for i:=1 to 50 do writeln('Студент ',i,'написал на ',a[i],'балов');
writeln('На екзамен допущено',count,'человек!!');
readln;
end.

uses crt;
 
type
  student = record
    fio: string[128];
    mark: integer;
  end;
 
const
  n = 50;
  NameNum = 5;
  //добавьте еще сюда фамилий
  Names: array[1..NameNum]  of string = 
  ('Васечкин', 'Петров', 'Колыванов', 'Иванов', 'Сидоров');
 
 
var
  k, i, count: integer;
  a: array [1..n] of student;
 
begin
  randomize;
  count := 0;
  writeln('Первый экзамен сдало 50 человек');
  for i := 1 to n do
  begin
    a[i].mark := random(10) + 1;
    k := random(NameNum) + 1;
    a[i].fio := names[k];
    if a[i].mark > 3 then 
    begin
      writeln('Студент ', i:4, a[i].fio:20, ' написал на ', a[i].mark, ' баллов. Допущен!');
      inc(count);
    end
    else
      writeln('Студент ', i:4, a[i].fio:20, ' написал на ', a[i].mark, ' баллов. Не допущен!');
  end;
  writeln('На экзамен допущено ', count, ' человек!!');
end.

uses crt;
type stud=record
          fam:string[15];
          ocn:byte;
          end;
var n,i:integer;
    a:array[1..50]of stud;
begin
randomize;
repeat
write('Введите количество студентов n<=50');
readln(n);
until n in [1..50];
writeln('Введете даннные студентов');
for i:=1 to n do
with a[i] do
 begin
  write('Фамилия: ');
  readln(fam);
  repeat
  write('Оценка [2..5]: ');
  readln(ocn);
  until ocn in [2..5];
 end;
writeln('Результаты 1 экзамена');
for i:=1 to n do
writeln(a[i].fam,' - ',a[i].ocn);
writeln('Допущены ко 2 экзамену');
for i:=1 to n do
if a[i].ocn>2 then
writeln(a[i].fam,' - ',a[i].ocn);
end.