буду очень благодарна )

[In\/isible]

Описать структуру с именем TRAIN с полями:
NAZN - название пункта назначения;
NUMR - номер поезда, TIME - время отправления.
Написать программу, выполняющую следующие действия:
- заполнение ( с клавиатуры и из файла) массива RASP с элементами типа TRAIN; записи должны быть размещены в алфавитном порядке по названию пунктов назначения;
- вывод информации о поездах, отправляющихся после введенного с клавиатуры времени;
- если таких поездов нет, выдать сообщение.

Знаю, что нужен массив из записей, не могу понять процедуру сортировки по алфавиту

[Mad_Cat]

не могу понять процедуру сортировки по алфавиту

пример)
массив Data и есть ваш RASP

procedure insert(idx:integer;str:Train);
 var j:integer;
begin
 for j:=N-1 downto idx do
  data[j+1]:=data[j];
 data[idx]:=str;
end;

procedure delete(idx:Train);
 var j:integer;
begin
 for j:=idx to n-1 do
 data[j]:=data[j+1];
end;

procedure sort;

 begin
   for i := 0 to (N-1) do
     for x := 0 to (N - 1) do
       if (data[x].nazn < data[i].nazn) and (x > i) then
       begin
         Insert(i, data[x]);
         Delete(x+ 1);
       end;
 end;

[In\/isible]

спасибо )))))

[In\/isible]

блин, я все равно не догоняю, как сранивать