Перевод программы с Pascal на Python

Program Photo; 
Var a: Array [1..3,1..1000] of string[60];
M,N,K,i,j,p,Eq,NEq: Integer;
alpha,h,Pix,Moving: Real; 
s: String; 
 
Begin 
ReadLn(M,N,alpha,h); 
ReadLn(K); 
alpha:=alpha*pi/180; 
For i:=1 To K Do Begin 
For j:=1 To M Do Begin 
ReadLn(s); 
p:=Pos(' ',s); 
While (p>0) Do Begin 
Delete(s,p,1); 
p:=Pos(' ',s); 
End; 
a[i,j]:=s; 
End; 
End; 
For i:=1 To M Do Begin 
Eq:=0;
For j:=i To M Do Begin 
If (a[1,j]=a[2,j-i+1]) Then 
Eq:=Eq+1 
Else 
Break; 
End; 
If (eq=M-i+1) Then 
Break; 
End; 
NEq:=M-Eq;
Pix:=Tan(Alpha/2)*h*2/M; 
Moving:=K*NEq*Pix; 
WriteLn(Moving:0:2); 
End.

Program Photo; 
Var a: Array [1..3,1..1000] of string[60]; // 2 первых кадра в двоичном виде 
M,N: Integer; // Длина и ширина в пикселях 
alpha,h: Real; // Угол (градусы), высота (см) 
K: Integer; // Кол-во кадров (перемещений) 
i,j,p,Eq,NEq: Integer; 
s: String; 
Pix,Moving: Real; // Длина пикселя, перемещение 
 
Begin 
ReadLn(M,N,alpha,h); 
ReadLn(K); 
alpha:=alpha*pi/180; 
 
// WriteLn(Tan(Alpha/2)*2*h/M); 
 
For i:=1 To K Do Begin // Считываем 2 первых кадра 
For j:=1 To M Do Begin 
ReadLn(s); 
p:=Pos(' ',s); 
While (p>0) Do Begin 
Delete(s,p,1); 
p:=Pos(' ',s); 
End; 
a[i,j]:=s; 
End; 
End; 
 
// Сравниваем 2 первых кадра 
For i:=1 To M Do Begin 
Eq:=0; // Кол-во совпадающих строк 
For j:=i To M Do Begin 
If (a[1,j]=a[2,j-i+1]) Then 
Eq:=Eq+1 
Else 
Break; 
End; 
If (eq=M-i+1) Then // Совпало M-i+1 строк - внизу кадра 1 вверх кадра 2 
Break; 
End; 
 
 
NEq:=M-Eq; // Кол-во несовпадающих строк 
 
Pix:=Tan(Alpha/2)*h*2/M; 
Moving:=K*NEq*Pix; 
 
// WriteLn('Pix=',Pix); 
// WriteLn('Neq=',Neq); 
WriteLn('Moving=',Moving); 
End.