задача на записи (код прилагается)

[misha_beginner]

Здраствуйте! Вообщем задание большое! Я переведу! Дана таблица (см. картинку под названием 11111) по этой таблице нужно эти данные оформить в виде записей и сформировать эти записи в массив Вот код:

Код: [Выделить]

const
     n=4;
     type anketa=record
     prizv:string;
     ocenka1:real;
     ocenka2:real;
     end;
     var
        a:array[1..n] of anketa;
    i:integer;
    begin
    writeln('vvedi dannie ');
    for i:=1 to n do
    with a[i] do
    begin
    write('prizv ');
    readln(prizv);
    write('ocenka1 ');
    readln(ocenka1);
    write('ocenka2 ');
    readln(ocenka2);
    end;
    end.(не знаю правильно ли)
Дальше вы можете прочитать снизу(см. картинку под названием 22222), что нужно еще и сделать таблицу (тоесть после записей идёт и таблица, мой вариант 2). Я переведу:
Вывести таблицу, с номерами, фамилиями, оценками, и средний бал тех студентов группы средний бал которых больше 4 и количество этих студентов в группе.
Вот код:

Код: [Выделить]

const n=4;
var
   nomer: array[1..n] of real;
   prizv:array [1..n] of string;
   matanaliz,proga:array[1..n] of real;
   i:integer;
   y,s1,s2:real;
   Procedure lin(m:integer);
   var
     i:integer;
     begin
     for i:=1 to m do write('-');
     writeln;
     end;
     begin
     for i:=1 to n do
     readln(nomer[i],prizv[i],matanal[i],proga[i]);
     Lin(40);
     Writeln('номер|призвіще|математ.|програмування|');
     Writeln('|    |        |аналіз  |             |);
     Lin(40);это недописано
Но дальше не знаю: средний бал тех студентов группы средний бал которых больше 4. Всё это одна программа.
Спасибо вам заранее