program gyakorlatvedes;
var t:text;
    i,n,x:integer;
    cs: string;
    a:array [1..30] of string;
begin
  assign(t,'nevsor.txt');
  reset(t);
  i:=0;
  while not eof(t) do
  begin
    inc(i);
    readln(t,a[i]);
    writeln(a[i]);
  end;
  n:=i;
  //randomize;
  for i:=1 to n do
  begin
    x:=1+random(n);
    cs:= a[i];
    a[i]:= a[x];
    a[x]:= cs;
  end;
  writeln('A labor vedesi sorrend: ');
  for i:=1 to n do
    writeln(i:2,'. ',a[i]);
  readln;
end.