Перевод кода с паскаль на питон

program ex1;
const n=6;
      k=3;
type myarray=array[1..n] of integer;
var A,B,C:myarray;
    kB,kC,kQ:array[1..k] of integer;
        i:byte;
procedure Init1(n:integer;var A:myarray);
var i:integer;
begin
for i:=1 to n do begin
A[i]:=random(1001);
write(A[i]:5);
end;
end;
 
function Bubble(A:myarray;n:integer):integer;
var i,j,c,count:integer;
begin
for i:=1 to n-1 do
for j:=n-1 downto i do
 if A[j+1]<A[j] then begin
 c:=A[j];
 A[j]:=A[j+1];
 A[j+1]:=c;
 count:=count+1;
 end;
 Bubble:=count;
end;
 
function Choice(A:myarray;n:integer):integer;
var i,j,c,count,nMin:integer;
begin
for i:=1 to n-1 do begin
nMin:=i;
 for j:=i+1 to n do
 if A[j]<A[nMin] then
 nMin:=j;
  if i<>nMin then begin
  c:=A[i];
  A[i]:=A[nMin];
  A[nMin]:=c;
  count:=count+1;
end;
Choice:=count;
end;
end;
 
begin
for i:=1 to k do begin
Writeln('Массив ',i,':');
Init1(n,A);
kB[i]:=Bubble(A,n);
kC[i]:=Choice(A,n);
writeln;
writeln('Количество перестановок при сортировке "пузырьком": ', kB[i]);
writeln('Количество перестановок при методе выбора: ', kC[i]);
writeln;
end;
for i:=1 to k-1 do begin
kB[k]:=kB[i]+kB[k];
kC[k]:=kC[i]+kC[k];
end;
writeln('Cреднее количество перестановок при сортировке "пузырьком": ', kB[k]/k:5:1);
writeln('Среднее количество перестановок при методе выбора: ', kC[k]/k:5:1);
end.
Люди пж помогите на питон перевести