Задача на файлы Опции

[Zigfried]

Файл "Каталог файлов"
Структура записи:
Имя файла(8 знаков)
Спецификация(3 знака)
Дата создания:
День(2 знака)
Месяц(2 знака)
Год(2 знака)
Количество блоков(4 знака)

Записи упорядочены по именам файлов.Создайте файл "Каталог файлов".Занесите в отдельный файл записи о файлах с заданным именем.

Помогите пожалуйста) Я условие не понимаю да и с темой файлы не лады у меня...

[Ozzя]

Здесь AddRecord; ошибка была. Исправлено.

program creator;
type
 TDate=string[8];
 TName=string[8];
 TSpec=string[3];
 TBlockCount=string[4];
 TFileInfo = record
            Name:TName;
            Spec:TSpec;
            CreationDate: TDate;
            BlockCount:TBlockCount;
            end;
var
  F,TFileOfTFileInfo:file of TFileInfo;
  Info,Struct: TFileInfo;
  NameFile:string[12];
  FixedName : TName;

Procedure AddRecord;
begin
  Writeln('Zapis nomer ',FilePos(TFileOfTFileInfo)+1);
  with Struct do
  begin
    Write('Enter Name: ');
    Readln(Name);
    Write('Enter Spec: ');
    Readln(Spec);
    Write('Enter Date: ');
    Readln(CreationDate);
    Write('Enter BockCount: ');
    Readln(BlockCount);
  end;
  Write(TFileOfTFileInfo,struct);
end;

Procedure CreateRecordFile;
var
   i,count:integer;
begin
  Write('Enter name of file ');
  Readln(NameFile);
  Assign(TFileOfTFileInfo,NameFile);
  Rewrite(TFileOfTFileInfo);
  Writeln('File created: ',NameFile);
  Write('Enter kol-vo zapisei kotorie vi hotite dobavit ');
  Readln(count);
  for i:=1 to count do
      AddRecord;
  Writeln('Zapisano');
  Close(TFileOfTFileInfo);
end;

begin
  CreateRecordFile;

  FixedName:='pascal';
  Assign(F,'output.dat');
  Rewrite(F);
  Assign(TFileOfTFileInfo,NameFile);
  ReSet(TFileOfTFileInfo);
  while not eof(TFileOfTFileInfo) do
    begin
      read(TFileOfTFileInfo,struct);
      if struct.name=FixedName then
        write(f,struct);
    end;
  Close(TFileOfTFileInfo);
  Close(F);
  readln;
  readln
end.