Перевести из Pascal в Python

program Zadacha3 ;
uses
SysUtils ;
Type
    Tpoint = record
n : integer ;
m : integer ;
end ;
    var
    i,k:integer ;
n ,m, p , q , a , l , r , u , d , s , o , i 1 : i n t 6 4 ;
mas : a r r a y [ 1 . . 2 5 0 0 0 0 ] o f T p o i n t ;
    begin
    readln ( n ,m, p , q ) ;
    for  i :=1 t o n do
        for k :=1 t o m do
            begin
            read ( a ) ;
            mas [ a ] . n := i ;
            mas [ a ] . m:= k ;
        end ;
    readln ( s ) ;
read ( a ) ;
    l :=mas [ a ] . n ;
    r := l ;
u :=mas [ a ] . m ;
d := u ;
    i1 := 2 ;
 a := 0 ;
    while ( i 1 <=s ) do
        begin
            i 1 := i 1 +1 ;
            read ( a ) ;
            i f ( mas [ a ] . n< l ) then l :=mas [ a ] . n ;
            i f ( mas [ a ] . n> r ) then r :=mas [ a ] . n ;
            i f ( mas [ a ] . m>u ) then u :=mas [ a ] . m ;
            i f ( mas [ a ] . m<d ) then d :=mas [ a ] . m ;
            i f ( ( r−l +1>p ) o r ( u−d+1>q ) ) then
                begin
                    o := o+1 ;
                    l :=mas [ a ] . n ;
                    r := l ;
                    u :=mas [ a ] . m ;
                    d := u ;
                end ;
    end ;
writeln ( o ) ;
readln ;
readln ;
readln ;
readln ;
end.