Заранее большое спасибо.
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;
Ниже прикрепляю всю программу