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

[Странница]

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

[volvo]

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

Я бы вот так переписал:

function strcomp(key1, key2: string): integer;
var i, m, c: integer;
begin

  c := 0;
  m := length(ley1);
  if m > length(key2) then m := length(key2);

  for i := 1 to m do begin
	c := ord(key1[i]) - ord(key2[i]);
	if c <> 0 then break;
  end;

  if c = 0 then
	c := length(key1) - length(key2);

  if c <> 0 then strcmp := c div abs( c )
  else strcomp := 0;

end;