Перевести

    program z3;
    type massiv = array [0..100,0..100] of integer;
     
    var
     n, m, p, i, j:integer;
     mas : array [0..100, 0..100] of integer;
     masSort : array [0..100, 0..100] of integer;
     
    function sort (a:massiv; num:integer; kol:integer): massiv;
    var
     q, w:integer;
    begin
     for q:= 2 to kol do
     begin
      if a[q-1, num]>a[q, num] then
      begin a[0, 0]:= a[q, num];
       w:=q-1;
       while a[w, num]>a[0, 0] do
       begin
        a[w+1, num]:= a[w, num];
        w:= w-1;
       end;
       a[w+1, num]:= a[0, 0];
      end;
     end;
     sort:=a;
    end;
     
    begin
     writeln ('введите n:');
     readln(n);
     
     writeln ('введите m:');
     readln(m);
     
     for i:=1 to n do
      for j:=1 to m do
      begin
       mas[i, j]:=random(10);
       writeln (mas[i, j]);
      end;
     
      for i:=1 to m do
      begin
       mas:=sort(mas, i, m);
      end;
     
     
      for i:=1 to n do
      for j:=1 to m do
      begin
       writeln (mas[i, j]);
      end;
      
     for i:=1 to n do
     begin
      p:=1;
      for j:=1 to m do
      begin
       if mas[j, i] mod 2 = 0 then
       begin
        p:=p*mas[j, i];
       end;
      end;
      masSort[1, i]:=p;
      masSort[2, i]:=i;
     end;
     
    end.