Массив Записи

uses crt;
type
sport=record
fio:string[15];
 country: string[15];
growth : 150..220;
  weight : 30..100;
  year : integer;
  reslt : integer
end;
tfile=file of sport;
var 
a:sport;
f:tfile;
b:boolean;
n:integer;
g:text;
 {чтение из файла}
procedure print;
begin
clrscr;
assign(f,'D:\Новая папка\lol.txt');
reset(f);
writeln('Список владельцев:');
 begin
writeln('|Фамилия спортсмена| Страна | Рост| Вес |Год Рождения|Результат|');
  while not eof(f) do
   begin
  read(f,a);
    writeln('------------------------------');
    writeln('|',a.fio              ,'| ',a.country,        '| ',a.growth,        '| ',a.weight,         '| ',a.year,       '|',a.reslt,'|');
    writeln('------------------------------');
   end;
 end;
close(f);
writeln('для продолжения нажмите Enter');
readln;
end;
{добавление записи в файл}
Procedure add;
begin
clrscr;
assign(f,'D:\Новая папка\lol.txt');
reset(f);
with a do
 begin
  writeln('Введите фамилию');
  readln(fio);
  writeln('Введите страну');
  readln(country);
  writeln('Введите рост');
  readln(growth);
  writeln('Введите вес');
  readln(weight);
  writeln('Введите год рождения');
  readln(year);
  writeln('Введите результат');
  readln(reslt);
 end;
seek(f,filesize(f));
write(f,a);
close(f);
writeln('Запись добавлена');
writeln('для продолжения нажмите Enter');
readln
end;
{удаление записи из файла}
procedure del;
var c:sport;
    n:string[20];
    i,j,k,b:integer;
begin
clrscr;
assign(f,'D:\Новая папка\lol.txt');
reset(f);
write('фамилия владельца: fio=');
readln(n);
i:=0;
b:=-1;
while (i<filesize(f))and(b=-1) do{ищем нужный номер}
 begin
  seek(f,i);
  read(f,a);
  if a.fio=n then b:=i
  else i:=i+1
 end;
if b=-1 then writeln('Такой фамилии нет')
else
 begin
  if b=filesize(f)-1 then{если последний}
   begin
    seek(f,filesize(f)-1);{встаем в последнюю запись}
    truncate(f);{обрезаем файл}
   end
  else
   begin
    for j:=b to filesize(f)-2 do{идем вперед}
     begin
      seek(f,j+1);{переставляем - сдвигаем - записи вверх на 1}
      read(f,c);
      seek(f,j);
      write(f,c);
     end;
    seek(f,filesize(f)-1);{встаем в последнюю запись}
    truncate(f);{обрезаем файл}
   end;
   writeln('Запись удалена')
 end;
close(f);
writeln('для продолжения нажмите Enter');
readln;
end;
{Сортировка записей в файле}
procedure sort;
var 
tmp,b:sport;
i,j:byte;
t:tfile;
begin
clrscr;
assign(f,'D:\Новая папка\lol.txt');
reset(f);
 for i:=0 to filesize(f)-2 do
 for j:=i+1 to filesize(f)-1 do
 begin
 seek(f,i);
 read(f,a);
 seek(f,j);
 read(f,b);
 if a.fio>b.fio then
 begin
 tmp:=a;
 a:=b;
 b:=tmp;
 seek(f,i);
write(f,a);
seek(f,j);
write(f,b);
 writeln(a);
 writeln(b);
 readln;
assign(g,'D:\Новая папка\file.txt');
rewrite(g);
writeln(g,a);
writeln(g,b);
writeln;
assign(t,'D:\Новая папка\ff.txt');
rewrite(t);
write(t,a);
write(t,b);
end;
end;
close(f);
close(g);
close(t);
end;
{розпечатка в txt}
Procedure txt;
var
i: integer;
begin
clrscr;
assign(f, 'D:\Новая папка\lol.txt');
assign(g, 'D:\Новая папка\lel.txt');
reset(f);
rewrite(g);
i := 1;
writeln(g,'|Фамилия спортсмена| Страна | Рост| Вес |Год Рождения|Результат|');
while not (eof(f)) do
begin
read(f, a);
writeln(g,'_____________________________________________________');
    writeln(g,'|',a.fio,'| ',a.country,'| ',a.growth,'| ',a.weight,'| ',a.year,'|',a.reslt,'|');
i := i + 1;
end;
close(f);
close(g);
writeln('Информация сохранена в ТХТ');
Readln;
end;
{Пойск по фамилии}
procedure Find;
var 
    fam:string[15];
    k:integer;
begin
clrscr;
assign(f,'D:\Новая папка\lol.txt');
reset(f);
write('Введите фамилию для поиска: ');
readln(fam);
k:=0;
while not eof(f) do
 begin
  read(f,a);
  if a.fio=fam then
   begin
    k:=1;
    writeln(a.fio,a.country,a.growth,a.weight,a.year,a.reslt);
end;
end; 
if k=0 then writeln('Владельца с такой маркой нет');
    assign(g, 'D:\Новая папка\mas.txt');
rewrite(g);
writeln(g,a.fio,a.country,a.growth,a.weight,a.year,a.reslt);
close(f);
Close(g);
writeln('для продолжения нажмите Enter');
readln;
end;
var
  w:char;
begin
clrscr;
b:=false;
repeat
clrscr;
writeln('Выберите действие:');
writeln('1-прочитать файл');
writeln('2-добавить запись в файл');
writeln('3-удалить запись из файла');
writeln('4-сортировка файла');
writeln('5-розпечатать в txt '); 
writeln('6-найти запись '); 
writeln('0-выход');
readln(w);
case w of
'1':print;
'2':add;
'3':del;
'4':sort;
'5':txt;
'6':find;
'0':
begin
writeln('Нажмите Enter для выхода');
Readln;
exit;
end
else 
      begin
        writeln('Нажмите Enter и повторите ваш ввод');
        Readln;
      end;
    end;
  until False;
end.