Сортировка данных

program f2;
uses crt;
type fonotek = record
     name: string;
     year: 1900..2100;
     category: string;
end;
var
    f:file of fonotek;
    f1:file of fonotek;
    i,n,k,tmp,j:integer;
    a: array[0..10] of fonotek;
begin
clrscr;
writeln('Vvod information to fonotek.dat - 1');
writeln('Edit and read fonotek.dat and fonotek2.txt - 2');
read(i);
case i of
 
1:begin
 
clrscr;
assign(f,'C:\nvidia\fonotek.dat');
rewrite(f);
write('Vvedite kol-vo zapisei:');
readln(n);
k:=0;
for i:=1 to n do
begin
     with a[i] do
     begin
          write('Name Album:');
          readln(name);
          write('God Vypuska:');
          readln(year);
          write('‘*tegory music:');
          readln(category);
          if (a[i].category<>'POP') and (a[i].category<>'TECHNO') then
          begin
          a[k]:=a[i];
          write(f,a[i]);
          end;
     end;
end;
close(f);
exit;
end;
 
2:begin
 
writeln;
readln;
assign(f,'c:\nvidia\fonotek.dat');
reset(f);
assign(f1,'c:\nvidia\fonotek2.txt');
rewrite(f1);
tmp:=0;
writeln('fonotek.dat:');
writeln('|Nazvanie alboma | God Vypuska | Zhanr Musyki|');
for i:=1 to n do
for j:=1 to n do
     writeln;
     while not eof(f) do
     begin
     read(f,a[i]);
     writeln(a[i].name,'   ',a[i].year,'   ',a[i].category);
     write(f1,a[i]);
end;
close(f1);
assign(f1,'c:\nvidia\fonotek2.txt');
reset(f1);
writeln;
writeln;
writeln('fonotek2.txt:');
writeln('|Nazvanie alboma | God Vypuska | Zhanr Musyki|');
for i:=1 to n do
     writeln;
     while not eof(f1) do
     begin
     read(f1,a[i]);
     writeln(a[i].name,'   ',a[i].year,'   ',a[i].category);
     end;
readln;
close(f);
close(f1);
end;
end;
end.