ПАСКАЛЬ. С клавиатуры ввели элементы массива А(5, -2,7,-3,8) Что будет выведено на экран в результате выполнения фрагмента программы? Что означают найденные величины?

#include <iostream>using namespace std;void selectionSort(double arr[], int size1, int size) { //size раз for (int i = size; i < size1; i++) { //ищем минимальный элемент среди [i; size - 1] int minPos = i; for (int j = i + 1; j < size1; j++) if (arr[j] > arr[minPos]) minPos = j; //ставим минимальный элемент на i-е место swap(arr[minPos], arr[i]); }}int main() { int size; scanf("%d", &size); double arr[1000]; for(int i = 0; i < size; i++){ scanf("%lf", &arr[i]); } selectionSort(arr, size, 0);        int size1 = 21; double arr1[22]; for(int i = size; i < size1; i++){ scanf("%lf", &arr1[i]); } selectionSort(arr1, size1, size); swap(arr1[size1], arr1[10]); double res[2000]; for (int i = 0; i < size; i++){        res[i] = arr[i];        }        for (int i = size; i < size1; i++){        res[i] = arr1[i];        }        for (int i = 0; i < size1; i++){        printf("%lf ", res[i]);        }}

Var
  S, C, Cmax: string;
  i, j, k, max: integer;
Begin
  Write('Введите предложение: ');ReadLn(S);
  S := UpperCase(S) + '.';
  max := 0;
  i := 1;
  while (i <= Length(S)) do
  begin
    C := '';
    while (S[i] in ['А'..'Я']) do
    begin
      C := C + S[i];
      i += 1;
    end;
    k := 0;
    For j := 1 to Length(C) do
      if (C[j] in ['А','Е','Ё','И','О','У','Э','Ю','Я']) then
        k := k + 1;
    if (k > max) then
    begin
      max := k;
      Cmax := C;
    end;
    i += 1;
  end;
  WriteLn('Слово с наибольшим количеством гласных: ',Cmax);
End.

Пример:

Введите предложение: Написать алгоритм,что указывает в данному предложении слово, в котором количество гласных максимальное
Слово с наибольшим количеством гласных: ПРЕДЛОЖЕНИИ