Обьясните что делает программа

const int n = 6;
typedef AType[n];
int i;
GetMin(AType A)
{
int min;
for(i=0;i<n;i++)
if(A[i]>0){
min = A[i];
return min;
}
return 0;
}
 
GetMin2(int min,AType A)
{
for(i=0;i<n;i++)
if(A[i]>0&&A[i]<min)
min=A[i];
return min;
}
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
AType A;
int min = 0;
for(i=0;i<n;i++)
A[i] = StrToInt(Memo1->Lines->Strings[i]);
min=GetMin(A);
min=GetMin2(min,A);
if(min==0)
Edit1->Text="íèõåðà íåò";
else
Edit1->Text=IntToStr(min);
}

const int n = 6; // объявление переменной в роли константы
typedef AType[n]; // объявление нового типа, вероятно массива, не уверен
int i; // объявление переменной
 
GetMin(AType A) // это функция
{
    int min; // переменная
    //-------------------------------
    // цикл
    for(i=0;i<n;i++)
    if(A[i]>0) // условие проверяющее аргумент A, точнее его элементов, который больше нуля
    {
        // элемент, больше нуля найден
        min = A[i]; // присваиваем переменной значение элемента
        return min; // выдача результата функцией
    }
    //-------------------------------
    return 0; // элемент из массива А, который больше нуля не найден, возвращаем ноль
}
 
GetMin2(int min,AType A) // это тоже функция (спасибо, кэп)
{
    //------------------------------------------
    // цикл
    for(i=0;i<n;i++)
    if(A[i]>0&&A[i]<min) min=A[i]; // проверяет условие, есть ли элемент массива А больше нуля И меньше ли этот элемент аргумента min
    //------------------------------------------
    return min; // возврат значения
}
 
void __fastcall TForm1::Button1Click(TObject *Sender) // опять функция, срабатывает при нажатии клавиши
{
    AType A; // объявление переменной созданного типа
    int min = 0; // объявление переменной и присваивание ей значения "0"
    //-------------------------------------------------------------
    // цикл
    // копирует значения строк Memo в массив A
    for(i=0;i<n;i++)
    A[i] = StrToInt(Memo1->Lines->Strings[i]); // StrToInt - перевод значения типа UnicodeString (AnsiString) в int
    //-------------------------------------------------------------
    min=GetMin(A); // вызов функции
    min=GetMin2(min,A); // вызов второй функции
    if(min==0) Edit1->Text="нихера нет"; // если min = 0, то выведем значение "нихера нет"
    else Edit1->Text=IntToStr(min); // если min отличен от нуля, то выведем значение переменной min
}