Вправа 9.3

Створіть програму, яка набиратиме список людей та розміщуватиме його за зростанням. Додайте можливість вилучення даних зі списку. При сортуванні регістр символів не враховувати

Розв'язання

procedure TForm1.Button1Click(Sender: TObject);

const n=10;

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

    i,j:integer;

    tmp:string;

begin

     for i := 1 to n do begin

       m[i]:=Memo1.Lines[i-1];

     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;

     Memo2.Text :='';

     for i := 1 to n do begin

       Memo2.Lines.Add (m[i]);

     end;

end;