помогите решить:
даны 3 слова одинаковой длины,начинающиеся на буквы А,В,К в любом порядке следования. Напечатать их в алфавитном порядке.
помогите очень срочно надо!!!
заранее спасибо
...
lengthStr:=length (s) - 2; {длина этих слов}
s1:=copy (s, 1, lengthStr);
s2:=copy (s, lengthStr+1, lengthStr);
s3:=copy (s, (lengthStr+1)*2, lengthStr);
if s1>s2
then if s2>s3
then writeLn (s3, ' ', s2, ' ', s1)
else if s1>s3
then writeLn (s2, ' ', s3, ' ', s1)
else writeLn (s2, ' ', s1, ' ', s3)
else if s1>s3
then writeLn (s1, ' ', s3, ' ', s2)
else if s3>s2
then writeLn (s1, ' ', s2, ' ', s3)
else writeLn (s1, ' ', s3, ' ', s2);