Задача на слова Опции

[Странница]

Заранее говорю про вывод слов в алфавитном порядке читала ,но честно ниичего не поняла, а моя задача звучит так Даны три слова одинаковой длины, начинающиеся на буквы А, В,К в любом порядке следования. Напечатать их в алфавитном порядке. Срочняк!!!!! Завтра нужно сдать!!!!!!! Еще раз извините, но тех темах ничеего не поняда, заранее огромное спасибо!!!!!!!

[klem4]

Ну вот попробуй разберерись как говорится

function Compare(a, b: String): Integer;

  function Min(a, b: Integer): Integer;
  begin
    if a < b then
     Min := a
    else
     Min := b;
  end;

var
  i, n, lA, lB: Integer;
begin

  lA := Length(a);
  lB := Length(b);

  n := Min(lA, lB);

  i := 1;

  while (i <= n) and (a[i] = b[i]) do inc(i);

  if (i > n) then begin
    if (lA = lB) then Compare := 0
     else
      if lA > lB then Compare := - 1
       else Compare := 1;
  end
   else
    if ord(a[i]) < ord(b[i]) then
      Compare := 1
    else
      Compare := -1
end;

Copmare(a, b) = 0; // Строки одинаковые
Compare(a, b) = 1; // строка A < B, то есть : 'A' < 'B', 'AA' < 'AAA', 'ABB' < 'ABC'
Compare(a, b) = -1; // строка A > B, то есть : 'AZ' > 'AB'

Функция от сюда помоему вообще не верна !

strcmp('Hello', 'Hello World') = 0 ...