Задать информацию о результатах сессии для группы студентов в виде одномерного массива записей

Program beta5_2;
uses crt;
type grupa=record
fio:string[15];
mark:string[10];
end;
var student:array[1..20] of grupa;
i,o,p1,p2,p3,p4,p5,code:integer;c,c1,c2,c3,c4,c5:string[10];x:real;
begin
o:=5;
for i:=1 to 3 do
with student[i] do
begin
writeln (' Surname ', fio);
readln(fio);
writeln (' Marks ', mark);
readln(mark);
c:=mark;
c1:=copy(c,1,1);
c2:=copy(c,3,1);
c3:=copy(c,5,1);
c4:=copy(c,7,1);
c5:=copy(c,9,1);
val(c1,p1,code);
val(c2,p2,code);
val(c3,p3,code);
val(c4,p4,code);
val(c5,p5,code);
x:=(p1+p2+p3+p4+p5)/5;
end;
for i:=1 to 3 do
writeln (' ', student[i].fio ,' ',x);
end.

Uses Crt;
Type Students = record
       Surname:string;
       mark:Real;
     End;
 
Var a:array [1..100] of Students;
    c:char;
    n,i:integer;
 
Procedure Add;
var m:integer;
Begin
  inc(n);
  with a[n] do Begin
    write('Введите фамилию: '); Readln(Surname);
    writeln('Введите 5 оценок полученные за год');
    mark:=0;
    For i:=1 to 5 do Begin
       Readln(m);
       mark:=mark+m;
    End;
    mark:=mark/5;
  End;
  writeln('Студент добавлен!');
  readkey;
End;
 
Procedure Find;
var s:string;
begin
  writeln('Введите фамилию студента');
  Readln(s);
  For i:=1 to n do
    if a[i].surname=s then
      writeln(s,' найден! Средняя оценка - ',a[i].mark:0:1)
    else writeln(s,' не нейден.');
 
  readkey;
end;
 
procedure list;
Begin
  ClrScr;
  writeln('¹       Name       Mark');
  For i:=1 to n do
    writeln(i,') ',a[i].surname:10,a[i].mark:10:1);
  readkey;
End;
 
BEGIN
  n:=0;
  Repeat
    ClrScr;
    writeln('Выберите номер операции.');
    writeln('1 - Добавить студента');
    writeln('2 - Найти студента');
    writeln('3 - Полный список');
    writeln('4 - Выход');
    c:=Readkey;
 
    Case c of
      '1': Add;
      '2': Find;
      '3': List;
    End;
  until c='4'
END.