Проблема с Сортировкой в программе "База Данных", прошу помощи Опции

[Callipso]

При запуске сортировки (сортировка выполняется по 2му полю программы, т.е. по годам) выскакивает ошибка процессора и паскаль вырубается. Помогите пожалуйста найти ошибку.

Заранее большое спасибо.

procedure sort;
var
f,f1: file of Lekarstva;
s,t,p: Lekarstva;
log: boolean;
k,i,j,n: integer;
a: array [1..10] of Lekarstva ;
z: string;
b: integer;
begin
clrscr;
assign (f,'c:\Lekarstva.dat');
reset (f);
n:=filesize(f);
i:=0;
while not eof(f) do
 begin
  read (f,s);
  a[i]:=s;
  i:=i+1;
 end;
repeat
 log:=true;
 for i:=0 to n-2 do
  if (a[i].year)>(a[i+1].year)  then
   begin
    b:=a[i].year;
    a[i].year:=a[i+1].year;
    a[i+1].year:=b;
    z:=a[i].name;
    a[i].name:=a[i+1].name;
    a[i+1].name:=z;
    z:=a[i].vipusk;
    a[i].vipusk:=a[i+1].vipusk;
    a[i+1].vipusk:=z;
    z:=a[i].bolesn;
    a[i].bolesn:=a[i+1].bolesn;
    a[i+1].bolesn:=z;
    log:=false
   end;
until log;
clrscr;
writeln (Shapka);
for i:=0 to n-1 do
 begin
  for j:=length(a[i].name) to 20 do
    a[i].name:=a[i].name + ' ';
 
   writeln (':',a[i].name,':',a[i].year,':',a[i].vipusk,'                :',a[i].bolesn);
 end;
 close (f);
 repeat until keypressed;
end;

Ниже прикрепляю всю программу

[мисс_граффити]

По-моему, проблема в самом файле.
Запустила примитивный кусочек на этом файле:

uses crt;
type
	Lekarstva=record
	name: string [20];
	year: integer;
	vipusk: string;
	bolesn: string;
   end;
var curr: lekarstva;
f: file of Lekarstva;

begin
clrscr;
assign(f,'c:\1.dat');
reset(f);
while not(eof (f)) do
  begin
  read(f,curr);
  writeln(curr.name);
  end;
readln;
end.

результат превзошел ожидания нечто жуткое.

покажешь, как ты заполняешь файл?