Trka sa regionalnog

Da li neko moze da mi kaze zasto za 10 test primer mi izbacuje da izlazni kod programa nije 0, negde sam pogresio u opisivanju nepoznatih, evo ga moj opis promenljivih pa mi recite gde gresim:
program trkaci;
Type niz=record
vr,brzina,sekunda,sat,minut,rednibroj:longint;
end;
var n,sati,minuti,sekunde,z,ukupno,j,s,i,pom:longint; a:array[1..1000]of niz;

pa brzina treba da bude realan broj...

A imas li 10 test primer i dalje mi puca

mislim da imam..Ostavi mail pa cu ti poslati kad nadjem.

moj mail je picholjub@yahoo.com,
P.S. Posalji mi i resenje ako imas da vidim na sta mi pada program
Molim te

thank you very much