Zadanie z pascala

[chealino]

Mam zrobić zadanie, zrobiłem go ale nie wiem czemu nie chce mi obliczyć w jakim dniu rowerzysta pokonywał najdłuższe trasy... proszę o najszybszą pomoc.

 

program rower;
var
podany_dzien : integer; {dzien tygodnia}
ile_km : integer; {ilosc km jednego dnia}
ile_wyc : integer; {ilosc wycieczek}
suma : integer; {laczna suma przejechanych km w sezonie}
trasa : integer; {w jakim dniu tygodnia rowerzysta przejechal najwiecej km}
srednia : double; {srednia przejechanych km}
dzien : integer;
begin
ile_wyc := 0; {zmienna przechowujaca ilosc wycieczek}
suma := 0;
srednia := 0;
trasa := 0;
dzien := 1;

repeat
        begin

        write ('podaj dzien tygodnia: ');
        readln (podany_dzien);
        if (podany_dzien = 0) then
                begin
                write('nie ma takiego dnia');
                break;
                end;

        write('podaj ilosc km: ');
        readln(ile_km);
        ile_wyc := ile_wyc + 1;
        suma := suma + ile_km;



        if ile_km > trasa then
        begin
        trasa := ile_km;
        dzien := podany_dzien;
        end;


end until (podany_dzien = 0);
srednia := (suma div ile_wyc);

writeln;
writeln;
writeln ('ilosc wycieczek w sezonie to: ',ile_wyc);
writeln ('rowerzysta w calym sezonie pokonal: ',suma,' km');
writeln ('rowerzysta pokonywal srednio dziennie: ',srednia:1:2,' km');
writeln ('najdluzsze trasy rowerzysta pokonywal: ',podany_dzien,' dnia');
readln;
end.