Pascal упорядочить массив состоящий из 10 произвольных букв латинского алфавита

#include <iostream>
#include <algorithm>
using std::cout;
using std::cin;

int main()
{
int sizeArr, input, min;
cout << "enter size arr: "; //размер массива
cin >> sizeArr;

int arr[sizeArr]; //сам массив
cout << "enter arr: ";
for(int i = 0; i < sizeArr; i++) //заполняем
{
cin >> input;
arr[i] = input;
if(i == 1)
{
min = input;
}
if(arr[i] < min)
{
min = arr[i];
}
}

int size = 0;
for(int i = 0; i < sizeArr; i++)
{
if(min == arr[i])
{
size++;
}
}

cout << std::endl << size;

return 0;
}

1.

var

  A: array [1..10] of integer;

  max, i: integer;

begin

    for i:=1 to 10 do                 // заполнение массива

        A[i] := random(100) - 50;

    max := -51;

    for i:=1 to 10 do                 // обработка массива

        if (A[i] < 0) and (A[i] > max) then

        max := A[i];

    writeln(max);

end.

2.

var

  A: array [1..1000] of integer;

  kol, i, N: integer;

begin

    readln(N);

    for i:=1 to N do                 // заполнение массива

        A[i] := random(100) - 50;

    for i:=1 to N do                 // обработка массива

        if A[i] mod 2 = 0 then

        inc(kol);

    writeln(kol);

end.