[Protos1993]

Мой код к сожалению не правилен, прогрмма работает но не по нужному алгаритму(нужно было использовать Assignfile и подобные процедуры для работы с файлами в делфи), можете предложить свой вариант?
вот код

Код:

procedure TForm9.Button1Click(Sender: TObject);
var
  List:TStringList;
  i:integer;
begin
  List:=TStringList.Create;
  Randomize;
  for i:=1 to 10 do
      List.Add(IntToStr(Random(100)));
  List.SaveToFile('C:\Новая папка\F1.DAT');
  Elements.Lines.LoadFromFile('C:\Новая папка\F1.DAT');
end;

procedure TForm9.Button2Click(Sender: TObject);
var
  List:TStringList;
  i:integer;
begin
  List:=TStringList.Create;
  List.LoadFromFile('C:\Новая папка\F1.DAT');
  for i:=1 to 5 do
      List.Delete(5);
 Elements.Lines:=List;