Конвертация кода С++ в паскаль - Pascal ABC

Формулировка задачи:

Здравствуйте, нужно переконвертировать код с++ в паскаль. Спасибо за помощь

#include <iostream>
#include <cstddef>
#include <cstdlib>
#include <ctime>
 
int main()
{
   const size_t m = 3;
   const size_t n = 4;
 
   int matrix[m][n];
 
   std::srand(std::time(NULL));
   for(size_t i = 0; i < m; ++i)
   {
      for(size_t j = 0; j < n; ++j)
      {
     matrix[i][j] = std::rand() % 10 - 5;
     std::cout.width(4);
     std::cout << matrix[i][j]; 
      }
      std::cout << "\n";
   }
 
   size_t cnt = 0;
 
   for(size_t j = 0; j < n; ++j)
   {
      if(matrix[0][j] != 0)
      {      
     bool q = matrix[0][j] > 0; 
     for(size_t i = 1; i < m; ++i)
        if((matrix[i][j] == 0) || ((matrix[i][j] > 0) != q))
           goto SKIP_LABEL;          
     ++cnt;
      }
 
   SKIP_LABEL:;
   }
 
   std::cout << "result: " << cnt << "\n";
}

Решение задачи: «Конвертация кода С++ в паскаль»

Листинг программы

const m=3; n=4;
label SKIP_LABEL;
var
  matrix: array [1..m,1..n] of integer;
  i, j, cnt: integer;
  q: boolean;
begin
  Randomize;
  for i:=1 to m do begin
    for j:=1 to n do begin
      matrix[i,j]:=Random(10)-5; Write(matrix[i,j]:4);
    end; WriteLn;
  end;
  cnt:=0; { глобальную переменную можно нулем не инициализировать }
  for j:=1 to n do begin
    if matrix[1,j]<>0 then begin
      q:=matrix[1,j]>0;
      for i:=1 to m do
        if (matrix[i,j]=0) or ((matrix[i,j]>0)<>q) then
          goto SKIP_LABEL;
      inc(cnt);
    end;
SKIP_LABEL:
  end;
  WriteLn('result: ',cnt);
end.

Объяснение кода листинга программы

const m=3; n=4; — задаются константы для переменных m и n
label SKIP_LABEL; — создается метка SKIP_LABEL для использования в цикле
var matrix: array [1..m,1..n] of integer; — объявляется переменная matrix типа array[1..m,1..n] of integer i, j, cnt: integer; — объявляются переменные i, j и cnt типа integer q: boolean; — объявляется переменная q типа boolean
begin
Randomize; — вызывается функция Randomize для инициализации генератора случайных чисел
for i:=1 to m do begin — начинается цикл for i от 1 до m
for j:=1 to n do begin — начинается вложенный цикл for j от 1 до n
matrix[i,j]:=Random(10)-5; — присваивается значение случайного числа переменной matrix[i,j]
Write(matrix[i,j]:4); — выводится значение переменной matrix[i,j]
end; — заканчивается вложенный цикл
WriteLn; — выводится символ новой строки
cnt:=0; — инициализируется глобальная переменная cnt значением 0
for j:=1 to n do begin — начинается еще один цикл for j от 1 до n
if matrix[1,j]<>0 then begin — проверяется условие matrix[1,j]<>0
q:=matrix[1,j]>0; — присваивается значение q в зависимости от значения matrix[1,j]
for i:=1 to m do
if (matrix[i,j]=0) or ((matrix[i,j]>0)<>q) then
goto SKIP_LABEL; — выполняется переход к метке SKIP_LABEL если выполняется условие
inc(cnt); — увеличивается значение переменной cnt
end; — заканчивается внутренний цикл
SKIP_LABEL: — выводится символ новой строки
end; — заканчивается внешний цикл
WriteLn('result: ',cnt); — выводится результат в консоль
end. — заканчивается программа