program sortowanie_lancuchow;
uses crt;
type tablica=array[1..10] of string[12];
var
i,n : integer;
x : tablica;
licz : Boolean;
b : string[12];
begin
clrscr;
Write('Podaj ilosc nazwisk: ');Readln(n);
for i:=1 to n do
begin
write('Podaj nazwisko nr.[',i,'] : ');
readln(x[i]);
end;
clrscr;
repeat
licz:=false;
for i:=1 to n-1 do
if x[i+1]Wyszukiwarka