задача на записи и таблицу Опции

[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.
тоесть вы вводите условие в виде записи и по условию оно строит таблицу уже и это должна быть одна большая программа
Вот сами картинки:



Сообщение отредактировано: Misha_beginner - 23.11.2013 18:43