Перевести с Pascal на Python

uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
    n,i,ip,j,k,mx:integer;
begin
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите элементы массива, в том числе группы положительных:');
for i:=1 to n do
 begin
  write('a[',i,']=');
  read(a[i]);
 end;
clrscr;
writeln('Исходный массив:');
for i:=1 to n do
write(a[i],' ');
writeln;
ip:=0;//начало группы
i:=1;
mx:=0;//максимальная длина
while i<=n do
if (a[i]>0)and((i=1)or(a[i-1]<=0)) then//если полож. и или первый или перед ним не полож.
 begin
  j:=i; //начало группы
  k:=0;//ее длина
  while(j<=n) and(a[j]>0) do
   begin
    k:=k+1;
    j:=j+1;
   end;
  if k>mx then //если больше макс
   begin
    mx:=k;//это макс
    ip:=i;//начадо
   end;
  i:=i+k;//перешагиваем
 end
else i:=i+1;//иначе пропускаем
if ip=0 then write('В массиве нет положительных элементов')
else
 begin
  writeln('Группа с наибольшим количеством положительных элементов:');
  for i:=ip to ip+mx-1 do //dsdtltv uhegge
  write(a[i],' ');
  writeln;
  for i:=1 to mx do //удалим сдвигами влево
   begin
    for j:=ip to n-1 do
    a[j]:=a[j+1];
    n:=n-1;
   end;
  writeln('Удаление этой группы:');
  for i:=1 to n do
  write(a[i],' ');
end;
end