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

[Sholar]

Товарисчи, очень нужна ваша помощь в портировании следующего кода на Паскаль:

int main() 
 { 
     unsigned int M, N; 
     float raw_matrix[9][11]; 
     float *result_array; 

     printf("enter M & N:\n"); 
     scanf("%i%i",&M,&N); 
     printf("--------enter matrix--------\n"); 

     for(int j = 0; j<N; j++) 
         for(int i = 0; i<M; i++) 
         { 
             scanf("%f",&raw_matrix[i][j]); 
         } 

     int sz = N/4; 
     result_array = new float[M]; 

     for(int k = 0; k<M; k++) 
     { 
         result_array[k] = raw_matrix[k][3]; 
         for(int t = 1; t<=sz; t++) 
         { 
             if(raw_matrix[k][(t*4)-1] < result_array[k]) result_array[k] = raw_matrix[k][(t*4)-1]; 
         } 

     } 

        int n, swapped; 
        do { 
          swapped = 0; 
          for (int i = 0; i < M - 1; i++) { 
              if (result_array[i] < result_array[i+1]) { 
                  n = result_array[i]; 
                  result_array[i] = result_array[i+1]; 
                  result_array[i+1] = n; 
                  swapped = 1; 
              } 
          } 
      } while (swapped); 

     printf("\n\n\n"); 
     for(int s = 0; s<M; s++) 
     { 
         printf("%f\n",result_array[s]); 
     } 
 }