Поменять местами минимальный и максимальный элементы массива размера 10 - c#

Хром жрет переносы строк - сейчас поправлю

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
namespace replaceThis{
 class main{
  static void Main(){
   int N = 10;
   int[] arr = new int[N];
   Random rand = new Random();
   Console.Write("Исходный   массив: ");
   for (int i = 0; i < N; ++i){
    arr[i] = rand.Next(1, 9);
    Console.Write("{0} ", arr[i]);
   }
   Console.WriteLine("");
   int maxI, minI;
   maxI = minI = 0;
   for(int i = 1; i< N; ++i){
    if (arr[maxI] < arr[i])
     maxI = i;
    if (arr[minI] > arr[i])
     minI = i;
   }
   int  temp = arr[minI];
   arr[minI] = arr[maxI];
   arr[maxI] = temp;
   Console.WriteLine("Индекс максимального - {0}. Индекс минимального - {1}.", maxI, minI);
   Console.Write("Измененный массив: ");
   for (int i = 0; i < N; ++i)
    Console.Write("{0} ", arr[i]);
   Console.ReadKey();
  }
 }
}

var

 number: integer;

begin

 var size := readinteger;

 var max := -32768;

 for var i := 1 to size do

 begin

   number := readinteger;

   if (number mod 4 = 0) and (number > max) then

     max := number;

 end;

 write(max);

end.

Объяснение:

var

 number: integer;  // Целочисленная переменная, хранящая вводимые с клавиатуры числа

begin  // Начало программы

 var size := readinteger;  // Считываем размер последовательности с клавиатуры

 var max := -32768;  // integer принадлежит диапазону [-32 768…32 767], взял за максимум самое маленькое число

 for var i := 1 to size do  // Идём от 1 до размера последовательности

 begin  // Начало цикла

   number := readinteger; // Считываем число последовательности с клавиатуры

   if (number mod 4 = 0) and (number > max) then  // Если число делится на 4 без остатка и оно > max

     max := number;  // max присваиваем number

 end;  // Конец цикла

 write(max);  // Выводим ответ

end. // Конец программы

var

 number: integer;

begin

 var size := readinteger;

 var max := -32768;

 for var i := 1 to size do

 begin

   number := readinteger;

   if (number mod 4 = 0) and (number > max) then

     max := number;

 end;

 write(max);

end.

Объяснение:

var

 number: integer;  // Целочисленная переменная, хранящая вводимые с клавиатуры числа

begin  // Начало программы

 var size := readinteger;  // Считываем размер последовательности с клавиатуры

 var max := -32768;  // integer принадлежит диапазону [-32 768…32 767], взял за максимум самое маленькое число

 for var i := 1 to size do  // Идём от 1 до размера последовательности

 begin  // Начало цикла

   number := readinteger; // Считываем число последовательности с клавиатуры

   if (number mod 4 = 0) and (number > max) then  // Если число делится на 4 без остатка и оно > max

     max := number;  // max присваиваем number

 end;  // Конец цикла

 write(max);  // Выводим ответ

end. // Конец программы