program Project17;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const c=50;

type mass=array[1..c] of integer;

var x:mass;
    n:integer;

procedure input(var x:mass; n:integer);
var i:integer;
begin
  writeln('Vvod massiva:');
  for i := 1 to n do readln(x[i]);
end;

procedure output(x:mass; n:integer);
var i:integer;
begin
  writeln('--------------');
  writeln('Vash massiv:');
  for i := 1 to n do write(x[i]:2);
  writeln;
  writeln('--------------');
end;

procedure min(x:mass; n:integer);
var i,min,imin,minp,iminp:integer;
begin
  min:=x[1];
  minp:=x[1];
  for i := 1 to n do
    begin
       if x[i]<=min then
        begin
          min:=x[i];
          imin:=i;
        end;
    end;
  for i := 1 to n do
    begin
      if (x[i] <= minp) and (x[i] >=0 ) then
        begin
          minp:=x[i];
          iminp:=i;
        end;
    end;
  writeln;
  writeln('Min element: ',min,'=','x','[',imin,']');   // просто минимальный
  writeln('Min polozhit element: ',minp,'=','x','[',iminp,']'); // минмальный положительный
end;

procedure sort(var x:mass; n:integer); //сортировка одномерного массива по возрастанию
var i,j,z:integer;
begin
  for i:=n downto 2 do
    begin
      for j:=1 to i-1 do if x[j]>x[j+1] then
        begin
          z:=x[j];
          x[j]:=x[j+1];
          x[j+1]:=z;
        end;
    end;
end;

begin
  writeln('Enter N <= 50:');
  readln(n);
  input(x,n);//вводим массив
  output(x,n);//    выводим исходный массив
  min(x,n);
  sort(x,n);
  output(x,n);  //выводим массив после сортировки
  readln;
end.