Перевод кода с Pascal на Python

const
  FileIn = 'cubes.dat';
  FileOut = 'cubes.sol';
  MaxN = 100;
 
type
  TProection = array[1..MaxN] of integer;
 
var
  n,m,k : integer;
  F, R : TProection;
  Possible : boolean;
  AnswerMin : longint;
  AnswerMax : longint;
 
function Max(a, b : integer) : integer;
begin
  if a>b then Max:=a else Max:=b;
end;
 
procedure GetProection(var F : Text; var P : TProection; n, m : integer);
var
  i, j : integer;
  x : integer;
 
begin
  FillChar(P, SizeOf(P), 0);
  for i:=1 to n do
    for j:=1 to m do
    begin
      Read(F, x);
      P[i]:=P[i]+x;
    end;
end;
 
procedure Init;
var
  Fi : Text;
 
begin
  AnswerMin:=0;
  AnswerMax:=0;
  Assign(Fi, FileIn);
  Reset(Fi);
  ReadLn(Fi, n, m, k);
  GetProection(Fi, F, n, m);
  GetProection(Fi, R, n, k);
  Close(Fi);
  Possible := true;
end;
 
procedure Run;
var
  i : integer;
 
begin
  for i:=1 to n do
  begin
    if ((F[i]=0)and(R[i]<>0)) or ((F[i]<>0)and(R[i]=0)) then
    begin
      Possible:=false;
      exit;
    end;
    AnswerMin:=AnswerMin + max(F[i], R[i]);
    AnswerMax:=AnswerMax + F[i] * R[i];
  end;
end;
 
procedure Done;
var
  Fo : Text;
 
begin
  Assign(Fo, FileOut);
  Rewrite(Fo);
  if Possible then
    WriteLn(Fo, AnswerMin, ' ', AnswerMax)
  else
    WriteLn(Fo, '0 0');
  Close(Fo);
end;
 
begin
  Init;
  Run;
  Done;
end.