"Типизированные файлы" от B_A_N_D_E_R_A

[B_A_N_D_E_R_A]

Помогите пожалуйста доделать задачу, не могу понять что делать дальше...

Условие задачи:
Составить программу, в которой создается и обрабатывается типизированный файл. Организовать добавление данных в существующий файл. Организовать чтение данных из файла и вывод на экран данных (в табличном виде) и результатов поиска.

Листинг программы, которую я не до делал по "типизированным файлам":

Program Z1;
uses crt;
type Shkolniky=record
name,surename:string;
rost,ves,vremya:real;
end;
var massive:array[1..100] of Shkolniky;
i,n:integer;
m,x:real;
spisok:text;
nam,s,r,v,vr:string;
begin
assign(spisok,'D:\text.txt');
rewrite(spisok);
writeln('vvedite kol-vo shkolnikov');
readln(n);
nam:='имя';s:='фамилия';r:='рост';v :='вес';vr:='время';
writeln;
for i:=1 to n do
with massive[i] do begin
writeln('vvedite Imja shkolnika');
readln(name);
writeln('vvedite familiu skolnika');
readln(surename);
writeln('zadayte rost skolnika v "cm"');
readln(rost);
writeln('zadayte ves shkolnika v "kg"');
readln(ves);
writeln('zadayte vremya v "sekundah", za kotoroe on probezhyt 100 metrov');
readln(vremya);
end;
write('среднее арифметическое роста',' ',n,'-х',' ','учеников: ');
for i:=1 to n do begin
m:=massive[i].rost+m; end;
m:=m/n;
writeln(m);writeln(spisok,'Среднее арифметическое роста',#32,n,#32,'ученика(ов):',#32 ,m);
x:=(m*20)/100;
writeln('20 процентов от среднего арифметического',': ',x);write(spisok,'20 процентов от среднего арифметического:',#32,#32,#32,x); writeln;
m:=m+x;
writeln('на 20 процентов выше среднего роста',': ',m); writeln(spisok,'На 20 процентов выше среднего роста:',#32,#32,#32,#32,#32,#32,#32 ,#32,m);
writeln(spisok,'+---------------+----------+----------+-----+-------+');
writeln(spisok,'|',#32,#32,#32,#32, s,#32,#32,#32,#32,'|',#32,#32,#32,# 32,nam,#32,#32,#32,'|',#32,#32,#32, r,#32,#32,#32,'|',#32,v,#32,'|',#32 ,vr,#32,'|');
writeln(spisok,'+---------------+----------+----------+-----+-------+');
for i:=1 to n do begin
writeln(spisok,'|',massive[i].surename:15,'|',massive[i].name:10,'|',massive[i].rost:10:1,'|',massive[i].ves:5:1,'|',massive[i].vremya:7:1,'|');end;
writeln(spisok,'+---------------+----------+----------+-----+-------+');
writeln('+---------------+----------+----------+-----+-------+');writeln(spisok,'+---------------+----------+----------+-----+-------+');
writeln('| Фамилия | Имя | Рост | Вес | Время |');writeln(spisok,'|',#32,#32,#32, #32,s,#32,#32,#32,#32,'|',#32,#32,# 32,#32,nam,#32,#32,#32,'|',#32,#32, #32,r,#32,#32,#32,'|',#32,v,#32,'|' ,#32,vr,#32,'|');
writeln('+---------------+----------+----------+-----+-------+');writeln(spisok,'+---------------+----------+----------+-----+-------+');
for i:=1 to n do
if massive[i].rost>=m
then begin writeln('|',massive[i].surename:15,'|',massive[i].name:10,'|',massive[i].rost:10:1,'|',massive[i].ves:5:1,'|',massive[i].vremya:7:1,'|');
writeln(spisok,'|',massive[i].surename:15,'|',massive[i].name:10,'|',massive[i].rost:10:1,'|',massive[i].ves:5:1,'|',massive[i].vremya:7:1,'|');end;
writeln('+---------------+----------+----------+-----+-------+');writeln(spisok,'+---------------+----------+----------+-----+-------+');close(spisok);
end.