Редактирование, просмотр , удаление записей - Turbo Pascal

uses crt; 
const nmax=50; 
line='-----------------------------------------------------------------------------'; 
shap='|  Фамилия  |    Пол    |    Рост   |    Вес    |'; 
type books=record 
sern: string[30]; 
stat: string[30]; 
rost, ves: real; 
end; 
 
var st: books; 
f3: file of books; 
i,n: integer; 
 
begin 
clrscr; 
assign(f3,'E:\file.txt'); 
rewrite(f3); 
repeat 
write('Количество людей не более ',nmax,', количество n='); 
readln(n); 
until n in [1..nmax]; 
writeln('Введите данные о людях'); 
for i:=1 to n do 
with st do 
begin 
write('Фамилия: '); 
readln(sern); 
write('Пол: '); 
readln(stat); 
write('Рост: '); 
readln(rost); 
write('Вес: '); 
readln(ves); 
write(f3,st); 
end; 
  
close(f3); 
reset(f3); 
n:=0; 
clrscr; 
write(' Люди подходящие  под критерий (рост-100)/вес>1.'); 
while not (eof(f3)) do 
begin 
read(f3,st); 
with st do 
begin 
if (rost -100)/ves>1 then 
begin 
inc(n); 
if n=1 then 
begin 
writeln; 
writeln(line); 
writeln(shap); 
writeln(line); 
end; 
writeln('|',sern:10,'|':2,stat:10,'|':2,rost:10:2,'|':2,ves:10:2,'|':2); 
writeln(line); 
end; 
end; 
end; 
if n=0 then write(', Отсутствуют') 
else writeln('Всего ',n); 
close(f3); 
readln; 
end.