Array

program Ar;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  A : array[1..25] of Integer;
  NMax: Integer;
  I: Integer;
  MinIndex, Min: Integer;
  MaxIndex, Max: Integer;

begin
  WriteLn('Enter length of array: ');
  Read(NMax);
  WriteLn('Enter array: ');
  for I := 1 to NMax do
    Read(A[I]);

  MinIndex := 1;
  Min := A[1];
  MaxIndex := 1;
  Max := A[1];
  for I := 1 to NMax do
  begin
    if A[I] < Min then
    begin
      Min := A[I];
      MinIndex := I;
    end;
    if A[I] > Max then
    begin
      Max := A[I];
      MaxIndex := I;
    end;
  end;

  A[1] := Min;
  A[NMax] := Max;

  WriteLn('Array: ');
  for I := 1 to NMax do
    Write(A[I], ' ');
  WriteLn;

  Write(Format('Max: %d, MaxIndex: %d, Min: %d, MinIndex: %d', [Max, MaxIndex, Min, MinIndex]));
  ReadLn;
  ReadLn;
end.