Задание..., Файлы с записами... Опции

[-zara44-]

1. Создать файл с записями следующей структуры:

-шифр факультета

-курс

-номер группы

-кол-во не явившихся по уважительной причине
-кол-во не явившихся по не уважительной причине

-кол-во очисленных

2. Распечатать файл в виде сводки таблицы.
3. Для двух, трех групп скорректировать 3-ри последних поля.

[zara44]

Вот что я смог сделать:

 program zap;
uses crt;
type
zap=record
end;
var
kolledg:array[1..100] of zap;
kurs:array[1..10] of byte;
gruppa:array[1..10] of string[10];
kolne:array[1..100] of word;
koly:array[1..100] of word;
otcisl:array[1.100] of byte;
shifr:string[8];
i,n:integer;
f:file;
begin
clrscr;
read(n);
assign(f,shifr);
reset(f);
for i:=1 to n do
begin
write('shifr fakulteta');
readln(shifr[i]);
write('kurs');
readln(kurs[i]);
write('kol-vo po ne uvagitelnoy');
readln(kolne[i]);
write('kol-vo po  uvagitelnoy');
readln(koly[i]);
write('kol-vo otchislenih');
readln(otcisl[i]);
rewrite(f);
close(f);
end;
readkey;
end.

Извините что так долго. Помогите что надо делать дальше????