Shorting by Name

program shortingbyname;
uses wincrt;
type maksStRing = string[30];
var
i,j,n : integer;
temp : maksStRing;
data : array [1..20] of maksString;

begin
writeln('sum of data :'); readln(n);
writeln;
writeln('before :');
writeln;
for i:=1 to n do
begin
write(i:2,'.');
readln(data[i]);
end;

for i:=1 to n do
for j:=1 to n do
if data[i]<data[j] then
begin
temp := data[i] ;
data[i]:=data[j] ;
data[j]:=temp ;
end;
writeln;
writeln('after :');
writeln;
for i:=1 to n do
writeln(i:2,'.',data[i]);
readln;
end.

if we run the statement,we are get output like this :