program meno;
uses crt;
var a,b:array[1..5]of string;
    i,j,p:integer;
    pom:string;
    priznak:boolean;
begin
clrscr;
for i:=1 to 5 do begin
                 writeln('Zadaj  ',i,'.meno');
                 readln(a[i]);
                 end;
for i:=1 to 5 do if a[i]='Jan' then p:=p+1;
writeln ('Pocet ziakov/meno Jan:',p);
for i:=1 to 5 do begin
    for j:=i to 5 do
        if ((a[i]=a[j]) and (i<>j)) then begin
                                         writeln('Opakuje sa meno:',a[i]);
                                         break;{ Prikaz na prerusenie
                                                 aktualneho cyklu}
                                         end;
    end;
for i:=1 to 4 do
    for j:=1 to 4 do begin
                  if a[j]>a[j+1] then begin pom:=a[j];
                                            a[j]:=a[j+1];
                                            a[j+1]:=pom;
                                      end;
                  end;
writeln('Usporiadany zoznam je:');
for i:=1 to 5 do writeln(a[i]);
readln;
end.