Листинг программы

program z26;

{Ввести список фамилий в любом порядке.

 Распечатать список в алфавитном порядке.}

uses crt;

var i,j,l,n,k:longint;sl1,sl2,a:string;

    alf,b:array[1..10] of string;label m;

 begin

 clrscr;

 write('введите количество фамилий:');readln(n);

 writeln('введите фамили:');

 for i:=1 to n do

   begin

   write(i,') ');readln(b[i]);

   end;

 i:=1;a:='абвгдеёжзийклмнопрстуфхцчшщъыьэюя';

 while i<=n-1 do

   begin

   j:=2;

   while j<=n do

      begin

      sl1:=b[i];sl2:=b[j];l:=0;

         for k:=1 to 33 do

           begin

           inc(l);

 if (sl1[l]=a[k])and(sl2[l]<>a[k])or(length(sl1)<l)or(length(sl2)<l)

    then goto m;

 if (sl1[l]<>a[k])and(sl2[l]=a[k])then

                                 begin

                                 alf[1]:=b[j];

                                 b[j]:=b[i];

                                 b[i]:=alf[1];

                                 goto m;

                                 end;

          end;

    m:inc(j);

    end;

    inc(i);

  end;clrscr;

  for i:=1 to n do writeln(i,') ',b[i]);

 readln;

 end.