Вывести по алфавиту список товаров, хранящихся более заданного времени и стоимость которых превышает заданную

program Sort;
type
  Tovar = record
    Name: ShortString;
    Count: Word;
    Cost:  Single;
    Data:  Date;
  end;
var
  F1: file of Tovar;
  F2: TextFile;
  List: array of Tovar;
  Data: Date;
  Cost: Single;
  S1, S2: String;
  Index: Word;
  Flag: Boolean;
begin
  Write('Контрольная дата:');
  Read(Data);
  Write('Минимальная стоимость:');
  Read(Cost);
  Write('Файл данных:');
  Read(S1);
  Write('Файл результатов:');
  Read(S2);
  AssignFile(F1, S1);
  try
    Reset(F1);
    SetLength(List, FileSize(F1));
    Index := 0;
    while not Eof(F1) do
    begin
      Read(F1, List[Index]);
      if List[Index].Data > Data
      then Inc(Index);
    end;
  finally
    CloseFile(F1);
  end;
  SetLength(List, Index + 1);
  repeat
    Flag := True;
    for Index := 0 to High(List)- 2 do
      if CompareStr(List[Index].Name, List[Index + 1].Name)> 0 then
      begin
        Flag := False;
        List[High(List)] := List[Index];
        List[Index] := List[Index + 1];
        List[Index + 1] := List[High(List)];
      end;
  until Flag;
  AssignFile(F2, S2);
  try
    ReWrite(F2);
   for Index := 0 to High(List)- 1 do
     WriteLn(F2, List[Index].Name, List[Index].Count, Format('%8.2f',[List[Index].Cost]), DateToStr(List[Index].Data));
  finally
    CloseFile(F2);
  end;
end.