Вправа 9.5

У файлі 1 знаходиться список справ, які слід відсортувати за зростанням та вивести до списку на форму.

Результати зберегти до файлу 2.

Додаткове завдання 

Передбачте можливість вибору імен файлів за допомогою компонентів класів OpenDialog та SaveDialog

Розв'язання (без додаткового завдання)

const n=10;

var m:array[1..n] of string;

   

procedure TForm1.Button1Click(Sender: TObject);

var i,j:integer;

    tmp:string;

    f1,f2:textfile;

begin

     AssignFile(f1,'File1.txt');

     AssignFile(f2,'File2.txt');

     Reset(f1);

     Rewrite(f2);

     for i := 1 to n do begin

       ReadLn(f1,m[i]);

     end;

     for i := 1 to n-1 do begin

         for j := i+1 to n do begin

             if m[i]>m[j] then begin

               tmp:=m[i];

               m[i]:=m[j];

               m[j]:=tmp;

             end;

         end;

     end;

     for i := 1 to n do begin

       WriteLn(f2,m[i]);

     end;

     Label1.Caption:='Виконано!';

     CloseFile(f1);

     CloseFile(f2);

end;