Упорядочить по фамилии (методом пузырька) в делфи

[EDK]

Создать массив, структура которого фамилия и номер телефона, упорядочить по фамилии.
Так так проходим тему сортировки пузырьком, нужно это сделать именно этим методом.
Желательно это сделать в StringGrid, и запрограмировать кнопку на вывод результата в StringGrid.
Нужно это же задание выполнить методами: минимального элемента и вставки.
Помогите кто знает.

[VIK_aka_TOR]

а с чем именно у вас трудности ... с объявлением типа структуры, или же сортировать это все?....

[EDK]

Не знаю, даже с чего начать.
Так уж вышло, что полный ноль.
Есть задача аналогичная, только сортирует числа, а вот переделать на имена не знаю как.

Вод код (запрограмированой кнопки):

procedure TForm1.Button1Click(Sender: TObject);
var i,k,c,x:integer;
    ss:string;
begin
k:=1;
for i:=1 to stringgrid1.RowCount do begin
 m.MNam[i]:=stringgrid1.cells[1,i];
 val(stringgrid1.Cells[2,i],m.MBal[i],c);
 end;
while k>0 do begin
 k:=0;
  for i:=1 to stringgrid1.rowcount do begin
  if m.MBal[i]<m.MBal[i+1] then begin
   k:=1;
   x:=m.MBal[i];
   m.MBal[i]:=m.MBal[i+1];
   m.MBal[i+1]:=x;
   ss:=m.MNam[i];
   m.MNam[i]:=m.MNam[i+1];
   m.MNam[i+1]:=ss;
   end;
  end;
  end;
for i:=1 to stringgrid1.RowCount do begin
 str(m.MBal[i],ss);
 stringgrid1.cells[2,i]:=ss;
 stringgrid1.cells[1,i]:=m.MNam[i];
 end;
end;

[VIK_aka_TOR]

по сути вам лишь переписать структуру... и немного модификаций в коде... начните со структуры... попытайтесь сделать что либо сами...
если что то делали САМИ... то представляйте... поможем разобраться... не нужно бросать задание своего соседа... вам же этим заниматься... если не по окончании учебного заведения, то во всяком случае во время нахождения в нем...

[EDK]

Вы не могли бы поподробнее написать, о модификациях в коде.
И о переводе числительных и текстовых значений ?

Заглядывая на перёд, не могли бы вы помочь разобраться с этим примером методами: минимального элемента и вставки.

[VIK_aka_TOR]

написал код в паскале...
немного упрощен.... но работает...

type
struc = record
  Famil : string[50];
  number : string[15];
end; 
var
i,j,n :integer;
mas : array [1..20] of struc;
buf : struc;
begin
mas[1].famil := 'Сидоров';
mas[1].number := '+743392462';
mas[2].famil := 'Арсеньев';
mas[2].number := '+823473547';
mas[3].famil := 'Петров';
mas[3].number := '+823473547';
mas[4].famil := 'Иванов';
mas[4].number := '+823473547';
n := 4; // т.к. записей у нас всего 4
for i:=1 to n -1 do
  for j:= 1 to n - i do
    if mas[j].famil > mas[j+1].famil then
      begin
        buf.famil := mas[j].famil;
        buf.number := mas[j].number;
        mas[j].number := mas[j + 1].number;
        mas[j].famil := mas[j+1].famil;
        mas[j+1].number := buf.number;
        mas[j+1].famil := buf.famil;
      end;
  for i:= 1 to n do
    writeln(mas[i].famil, ' :-> ', mas[i].number);
end.

вам лишь сделать свой ввод данных, подсчет количества записей и собственно вывод

сортировки

[EDK]

VIK_aka_TOR, огромное спасибо, буду работать над этой темой.