Реализовать хранение, вывод, добавление, удаление и поиск студентов (фамилия, имя, отчество, возраст, средний

Uses CRT;
type  stud = record
             name: string[20];
             mark: array[1..5] of integer;
             ab,kc:real;
             end;
var  a: array[1..100] of stud;
     n, i, j, s1, s2, s3, s4: integer;
     absolut,kach: real;
begin
write('Сколько студентов в группе? ');
readln(n);
writeln('Введите данные по студентам:');
for i := 1 to n do
 begin
  writeln('  ', i, '-й студент:');
  with a[i] do
   begin
    write('    Фамилия, Имя: '); readln(name);
    writeln('    Оценки по 5-м предметам (от 1 до 5 баллов)');
    for j := 1 to 5 do
    repeat
    write('       ', j, '-я оценка: ');
    readln(mark[j]);
    until mark[j] in [1..5];
  end;
 end;
s3:=0; {абсолютная по групппе}
s4:=0; {качественная по группе}
for i:=1 to n do
 begin
  s1:=0;
  s2:=0;
  for j:=1 to 5 do
   begin
    if a[i].mark[j] in [4,5] then
     begin
      inc(s1);
      inc(s2);
     end;
    if a[i].mark[j]=3 then inc(s1);
   end;
  a[i].ab:=s1/5;
  a[i].kc:=s2/5;
  inc(s3,s1);
  inc(s4,s2);
 end;
absolut:=s3/n/5;
kach:=s4/n/5;
clrscr;
writeln('--------------------------------------------------------------');
writeln('|    ФИО студента    | Оценки по предметам |Абс.усп.|Кач.усп.|');
writeln('--------------------------------------------------------------');
for i := 1 to n do
with a[i] do
 begin
  write('|',name,' ':20-length(name),'|');
  for j:=1 to 5 do write(mark[j]:4);
  writeln(' |',ab:7:2,' |',kc:7:2,' |');
 end;
writeln('--------------------------------------------------------------');
writeln('Успеваемость по группе:');
write('Абсолютная=',absolut:0:2,' качественная=',kach:0:2);
readln;
end.