Перевести код с Си на Pascal

#include <stdio.h>
#include <time.h>
#include <stdlib.h>
#include <iostream.h>
using namespace std;
 
int main()
{
    const int n=5;
    const int m=4;
    srand( time( NULL ) );
    int a[n][m], max_str[n], min_str[n], max_stolb[m], min_stolb[m], i, j, i_max, i_min; 
     /*
        v massive max_str[] hranitsy max znacheniy massiva po strokam
        v massive min_str[] hranitsy min znacheniy massiva po strokam
        v massive max_stolb[] hranitsy max znacheniy massiva po stlobcham
        v massive min_stolb[] hranitsy min znacheniy massiva po stlobcham
     */
    cout<<"Ishodn matr:"<<endl;
    for(i=0; i<n; i++)
    {
        i_max=i_min=0;
        for(j=0; j<m; j++)
        {
            a[i][j]=rand()%10;
            cout<<a[i][j]<<" ";
            if(a[i][j]<a[i][i_min])
                i_min=j;
            if(a[i][j]>a[i][i_max])
                i_max=j;
        }
        cout<<endl;
        max_str[i]=a[i][i_max];
        min_str[i]=a[i][i_min];
    }
    for(j=0; j<m; j++)
    {
        i_min=i_max=0;
        for(i=0; i<n; i++)
        {
            if(a[i][j]<a[i_min][j])
                i_min=i;
            if(a[i][j]>a[i_max][j])
                i_max=i;
        }
        max_stolb[j]=a[i_max][j];
        min_stolb[j]=a[i_min][j];
    }
    cout<<"Index sedl tochek:"<<endl;
    for(i=0; i<n; i++)
        for(j=0; j<m; j++)
            if ((a[i][j]==max_str[i] && a[i][j]==min_stolb[j]) || 
               (a[i][j]==min_str[i] && a[i][j]==max_stolb[j]))
                cout<<i<<" "<<j<<endl; 
    return 0;
}