Создать программу на pascal. Нужно создать программу на паскале, в которой будут выполнены с 1 по 5 пункт

#include <iostream>

#include <vector>

using namespace std;

void solve(){

   int m,n;

   cin >> m >> n;

   vector<vector<int>> a(m,vector<int>(n));

   vector<bool> b(m, true);

   for(int i = 0; i < m; i++)

       for(int j = 0; j < n; j++)

           cin >> a[i][j];

   for(int i = 0; i < m; i++)

       for(int j = 1; j < n; j++)

           if(a[i][j] <= a[i][j-1])

               b[i] = false;

   for(auto i : b) cout << i << " ";

}

signed main(){

   solve();

}

#include <iostream>

#include <cmath>

signed main()

{

setlocale(LC_ALL, "Rus");

int cnt, countBoys = 0, countGirls = 0, sumHeightBoys = 0, sumHeightGirls = 0;

std::cout << "Введите количество детей в классе: ";

std::cin >> cnt;

int* height = new int[cnt];

for (int i = 0; i < cnt; i++)

{

 std::cout << "Рост ребёнка №" << i + 1 << ": ";

 std::cin >> height[i];

 if (height[i] < 0) {

  countBoys++;

  sumHeightBoys += height[i];

 }

 else {

  countGirls++;

  sumHeightGirls += height[i];

 }

}

std::cout << "Средний рост мальчиков: " << abs(sumHeightBoys) / countBoys << std::endl;

std::cout << "Средний рост девочек: " << sumHeightGirls / countGirls << std::endl;

return 0;

}