guys i need help to translate this code from pascal to python

Question

assign (sub,'hlasy.txt');
reset (sub);
pocetvolani:=0;
suma:=0;
while not(eof(sub)) do
begin
readln (sub,telcislo,doba);
suma:=suma+doba; inc(pocetvolani);
pole_cisel[pocetvolani]:=telcislo;
dobavolania[pocetvolani]:=doba;
end;
close(sub);
for i:=1 to 100 do begin
for j:=(i+1) to 100 do begin
if pole_cisel[i]=pole_cisel[j] then
dobavolania[i]:=dobavolania[i]+dobavolania[j]; end;
end;
i:=1;
while(i<=100) do begin
if dobavolania[i]>dobavolania[i+1] then begin
max:=dobavolania[i]; cislo_max_vklad:=pole_cisel[i];
pom:=dobavolania[i+1]; pom1:=pole_cisel[i+1];
dobavolania[i+1]:=dobavolania[i];
pole_cisel[i+1]:=pole_cisel[i]; dobavolania[i]:=pom;

pole_cisel[i]:=pom1;
end;
inc(i);
end;
writeln('maximalna vlozena suma=',max,' z cisla ',cislo_max_vklad);
writeln('pocet volani =',pocetvolani);
writeln('celkova zozbierana suma',suma); readln;
end.

Answer 1

And after you've tried Sakshi 's suggestion, if the code doesn't work, you can copy it into the code playground and attach it here. Someone should be able to help.

Answer 2

I think chatgpt translate this code, please try

Answer 3

Yeah, code work. Thank you very much.