EvgCur_1

Const
    N = 15;
Var
    A: Array [1..N] Of Integer;
    I, J, T: Integer;
    FD: Text;
Begin
    For I:= 1 To N Do A[I]:= Random(25);
    Assign(FD, '1.txt');
    ReWrite(FD);
    For I:= 1 To N Do WriteLn(FD, A[I]);
    Close(FD);
    For J:= 1 To N - 1 Do
      For I:= 1 To N - J Do
        If A[I] > A[I + 1] Then Begin
          T:= A[I + 1];
          A[I + 1]:= A[I];
          A[I]:= T;
        End;
    Assign(FD, '2.txt');
    ReWrite(FD);
    For I:= 1 To N Do WriteLn(FD, A[I]);
    Close(FD);
End.