Задачка по Паскалю - обработка типизированного файла "Фонотека"

[maxick96]

Программа f2.pas считывает информацию из нетекстового файла fonotek.dat, удаляет из файла все альбомы в стиле POP и TECHNO и записывает в текстовый файл fonotek2.txt информацию об альбомах в порядке убывания года выпуска. В ней используется комбинированный тип Fonotek, тип albom (массив из 10 записей типа fonotek).

помогите пожалуйста её доделать
я не могу сделать перенос из .dat в текстовый файл, постоянно пишет ошибк
вот всё что смог сделать:

program f2;
uses crt;
type albom = record
     name: string;
     year: 1900..2100;
     category: string;
end;
var
    f:file of albom;
    s2:text;
    i,n,size:integer;
    a: array[1..10] of albom;
begin
clrscr;
writeln('Vvod information - 1, Read a fonotek.dat - 2, Drugie fonotek.dat u fonotek2.txt - 3');
read(i);
case i of

1:begin

clrscr;
assign(f,'C:\nvidia\fonotek.dat');
rewrite(f);
assign(s2,'c:\nvidia\fonotek2.txt');
reset(s2);
write('Vvedite 10 zapisei:');
writeln;
for i:=1 to 5 do
begin
     with a[i] do
     begin
          write('Name Album:');
          readln(name);
          write('God Vypuska:');
          readln(year);
          write('‘*tegory music:');
          readln(category);
          write(f,a[i]);
     end;
end;
close(f);
exit;
end;

2:begin

assign(f,'c:\nvidia\fonotek.dat');
rewrite(f);
writeln;
writeln('Soderzhanie fonotek.dat:');
writeln('|Nazvanie alboma | God Vypuska | Zhanr Musyki|');
for i:=1 to 10 do
begin
     writeln;
     writeln(a[i].name,'       ',a[i].year,'       ',a[i].category);
end;
close(f);
exit;
end;

3:begin

writeln('Izmenennaya informaziya v fonotek2.txt:');
writeln('|Nazvanie alboma | God Vypuska | Zhanr Musyki|');
assign(s2,'C:\nvidia\fonotek2.txt');
rewrite(s2);
for i:=1 to 10 do
with a[i] do
begin
     writeln;
     if(category='POP') then
     truncate(f);
     write(s2,a[i]);
     if(category='TECHNO') then
     truncate(f);
     write(s2,a[i]);
end;
readln;
close(f);
end;
end;
end.

[maxick96]

ну пожалуйста помогите уже кто-нибудь!

[Serge_Bliznykov]

ну, формальный ответ, чтобы не было ошибок компиляции, надо вместо

     if(category='POP') then
     truncate(f);
     write(s2,a[i]);
     if(category='TECHNO') then
     truncate(f);
     write(s2,a[i]);

нужно написать:

     writeln(s2,a[i].Name,' ',a[i].year,' ',a[i].category);

но у Вас же удаление альбомов сделано в корне НЕВЕРНО!

во-вторых, почему Вы решили с бухты-барахты, что в файле будет РОВНО десять записей?! Откуда эти неверные циклы от 1 до 10 ?!

в-третьих,

в текстовый файл fonotek2.txt информацию об альбомах в порядке убывания года выпуска.

где Вы сортируете по году в порядке убывания?

[maxick96]

вот я и прошу чтобы мне переделали программу