Сортировки, Помогите решить задачу Опции

[*alt]

Задача.
Дан список морфем, в котором указана сама морфема и её тип (приставка, корень, суффикс или окончание). В списке могут встречаться повторяющиеся морфемы.
Написать программу, результатом работы которой должен быть список морфем, разбитый на группы для каждого типа. Внутри этих групп морфемы должны быть упорядочены в лексикографическом порядке. В группе корней одна и таже морфема может встречаться несколько раз, а в других группах морфемы должны быть уникальными.


С чего начать???
Что сделать???
Как сделать???
Помогите.....

[volvo]

Например вот так:

uses sysutils;

type
  MorphemeType = (
    PREFIX, ROOT, SUFFIX, TERMINATION
  );
const
  szMorphTypes: array [MorphemeType] of string = (
    'PREFIX', 'ROOT', 'SUFFIX', 'TERMINATION'
  );

type
  PTListItem = ^TListItem;
  TListItem = record
    value: string;
    next: PTListItem;
  end;
  TList = record
    first, last: PTListItem;
  end;


procedure CreateList(var L: TList);
begin
  L.first := nil; L.last := nil;
end;
procedure DestroyList(var L: TList);
var T: ptlistitem;
begin
  while L.first <> nil do begin
    T := L.first;
    L.first := L.first^.next;
    dispose(T);
  end;
end;

procedure AppendToList(var L: TList; const value: string);
var p: PTListItem;
begin
  new(p);
  p^.value := value;
  p^.next := nil;

  if L.first = nil then L.first := p
  else L.last^.next := p;

  L.last := p;
end;

function ExistsInList(L: TList; const value: string): boolean;
var p: ptlistitem;
begin
  ExistsInList := true;
  p := L.first;
  while p <> nil do begin
    if p^.value = value then exit;
    p := p^.next;
  end;
  ExistsInList := false;
end;

procedure SortList(var Ls: TList);
  function insert_sort(l: ptlistitem): ptlistitem;

    function insert(a: ptlistitem; l: ptlistitem): ptlistitem;
    begin
      a^.next := nil;
      if l = nil then insert := a
      else
        if a^.value < l^.value then begin
          a^.next := l; insert := a;
        end
        else begin
          l^.next := insert(a, l^.next);
          insert := l;
        end;
    end;

  begin
    if l = nil then insert_sort := nil
    else insert_sort := insert(l, insert_sort(l^.next));
  end;

begin
  Ls.first := insert_sort(Ls.first);
end;

procedure PrintList(var L: TList);
var p: PTListItem;
begin
  SortList(L);

  p := L.first;
  while p <> nil do begin
    writeln(p^.value);
    p := p^.next;
  end;
end;

const
  in_list: array[MorphemeType] of TList = (
    (first:nil; last:nil),
    (first:nil; last:nil),
    (first:nil; last:nil),
    (first:nil; last:nil)
  );


procedure AppendMorph(mt: morphemetype; var value: string);
begin
  if
    ((mt <> ROOT) and (not ExistsInList(in_list[mt], value)))
    or
    (mt = ROOT)
  then begin
    AppendToList(in_list[mt], value);
  end;
end;


function GetMorphemInfo(const s: string;
         var value: string): MorphemeType;
var
  temp: string;
  p: integer;
  mt: morphemetype;
begin
  p := pos(' ', s);
  temp := copy(s, p + 1, 255);
  for mt := low(mt) to high(mt) do begin
    if temp = szMorphTypes[mt] then begin
      GetMorphemInfo := mt;
    end;
  end;
  value := copy(s, 1, p - 1);
end;


var
  morphFile: Text;
  temp, value: string;
  mt: morphemetype;

begin
  assign( morphFile, 'morphems.txt' );
  reset( morphFIle );

  while not eof ( morphFile ) do begin
    readln( morphFIle, temp );
    AppendMorph(GetMorphemInfo(temp, value), value);
  end;

  for mt := low(mt) to high(mt) do begin
    PrintList(in_list[mt]);
    DestroyList(in_list[mt]);
  end;

  close( morphFile );
  readln;
end.