program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const maxn=100;

type tablica=array[1..maxn] of string[10];

var a:tablica;
var i,j,n:integer;

t:string;
procedure sortbab(var a:tablica);

begin
for i:=2 to n do
begin
for j:=n downto i do
if a[j-1]>a[j] then
begin
t:=a[j-1];
a[j-1]:=a[j];
a[j]:=t;
end;
end;
end;

procedure pisz(var a:tablica);
begin
write('podaj liczbe elementow n: ');readln(n);
writeln('podawaj elementy do sortowania:');
for i:=1 to n do
begin
read(a[i]);
readln;
end;
end;

procedure czytaj(a:tablica);
begin
for i:=1 to n do
writeln(a[i]:10);
//{repeat until keypressed;}
end;

begin
pisz(a);
sortbab(a);
czytaj(a);

readln;
end.