Добрый день! Никак не могу понять задание, хотелось бы получить

Program Massiv;
{$APPTYPE CONSOLE}
uses  SysUtils;

var  i: integer; // счетчик 
 a: array[1..10] of Integer; // объявляем массив из 10 целых элементов
begin
// Вводим элементы массива с клавиатуры 
for i:=1 to 10 do  // цикл  
begin     
  writeln('vvedite element massiva i nagmite >>ENTER');     
  write('a[',i,']=');     
  write(a[i]);     
  read(a[i])   
end; 
i:=1;
j:=0;// счетчик для поиска 3-го элемента 
  repeat 
    if a[i]<=0   
      then
        inc(i) // переходим к следующему элементу        
      else     
        begin       
          inc(j); // отмечаем найденный положительный элемент      
          inc(i)  // переходим к следующему элементу     
        end; 
   until (j=3) or (i=11); // До тех пор пока не найден 3-й положительный элемент
                                  // либо не проверен весь массив
 if j=3   
   then // есть как минимум три положительных элемента  в массиве      
     writeln('3 Pologitelniy element a[',i-1,']=', a[i-1])   
   else // в массиве меньше трех положительных элементов     
     writeln('Net 3 pologitelnogo eltmenta = ');
readln; 
readln
  { TODO -oUser -cConsole Main : Insert code here }
end.

//C# first problem
using System;
class Programm
{
  static void Main()
  {
     int n=int.Parse(Console.ReadLine());
     int[] a=new int [n];
     for (int i=0;i<n;i++)
     {
        a[i]=i;
        Console.Write(a[i] + " ");
     }
  }
}

//C# second problem
using System;
class Programm
{
  static void Main()
  {
     int n=int.Parse(Console.ReadLine());
     int[] a=new int [n];
     int ma=0,mi=0,ma_p=0,mi_p=0;
     for (int i=0;i<n;i++)
     {
        a[i]=int.Parse(Console.ReadLine);
     }
     ma=a[0];mi=a[0];ma_p=0;mi_p=0;
     for (int i=0;i<n;i++)
     {
        if (ma<a[i]){ma=a[i];ma_p=i;}
        if (mi>a[i]){mi=a[i];mi_p=i;}
     }
     ma=a[ma_p];
     a[ma_p]=a[mi_p];
     a[mi_p]=ma;
     for (int i=0;i<n;i++){Console.Write(a[i] + " ");}
  }
}