Перевести код из C++ в Pascal ABC

[Alesha)]

Собственно вот сама задача: Задан размер квадратной матрицы и значения ее элементов (0 или 1). Сформировать и вывести массив номеров строк и массив номеров столбцов, все элементы которых равны только 1 или только 0. Принять, что нумерация строк и столбцов начинается с 1.
А вот код:

#include <iostream>
#include <time.h>
#include <stdlib.h>
using namespace std;
int main()
 
{
    setlocale(LC_ALL, "Russian");
    srand(time(NULL));
int i, j, sum=0; const int size=5;
int ar[size][size];
for (i=0; i<size; i++) 
    {
    for (j=0; j<size; j++) ar[i][j]=rand()%2;
    }
        for (i=0; i<size; i++)
        {
            for (j=0; j<size; j++)
            {
                cout<<ar[i][j]<<" ";
                if (j==size-1) cout<<"\n";
            }
        }
        cout<<"\nстроки, состоящие из нулей - ";
    for (i=0; i<size; i++)
    {
        for (j=0; j<size; j++)
        {
            sum+=ar[i][j];
        }
        if (sum==0) cout<<i+1; sum=0;
    }
        cout<<"\nстолбцы, состоящие из нулей - ";
    for (j=0; j<size; j++)
    {
        for (i=0; i<size; i++)
        {
            sum+=ar[i][j];
        }
        if (sum==0) cout<<j+1; sum=0;
    }
            cout<<"\nстроки, состоящие из единиц - ";
    for (i=0; i<size; i++)
    {
        for (j=0; j<size; j++)
        {
            sum+=ar[i][j];
        }
        if (sum==size) cout<<i+1; sum=0;
    }
        cout<<"\nстолбцы, состоящие из единиц - ";
    for (j=0; j<size; j++)
    {
        for (i=0; i<size; i++)
        {
            sum+=ar[i][j];
        }
        if (sum==size) cout<<j+1; sum=0;
    }

	return 0;
}