Задача о МКАДе - Turbo Pascal

Формулировка задачи:

Условие задачи : "Длина Московской кольцевой автомобильной дороги —109 километров. Байкер Вася стартует с нулевого километра МКАД и едет со скоростью v километров в час. На какой отметке он остановится через t часов?"

Program MRHW;
var v,t,s,SecondTraveledDistance,AbsoluteValueOfSpeed,TraveledDistance : Integer;
Begin
Readln(v,t);
if (v=0) or (t=0) then writeln (0);
s:=109;
TraveledDistance:=abs(V)*t;
If TraveledDistance=S then Writeln (0);
if (TraveledDistance>S) and (V>0) then writeln (TraveledDistance mod S ); {Если пройденный путь больше длины МКАДа,а скорость больше нуля}
If (TraveledDistance<S) and (v>0) then writeln (TraveledDistance); {If traveled distance less than quantity of posts}
If (TraveledDistance<S) and (V<0) then writeln ((S)-TraveledDistance);
If (TraveledDistance>S) and (V<0) then writeln ((S) - (TraveledDistance mod S));
end.

На сайте дистанционной подготовки усиленно не проходит 4й тест. (Ссылка - http://informatics.mccme.ru/moodle/m...=2088r119934#1 ) Прошу не прямо указать на ошибку,а просто направить,какое же условие я пропускаю.

Решение задачи: «Задача о МКАДе»

textual
                            Листинг программы 
                        

                            if (v=0) or (t=0) then writeln (0);
s:=109;
If (v<>0) and (t<>0) then 
Begin 
TraveledDistance:=abs(V)*t;
If (TraveledDistance mod S=0) and (TraveledDistance>=S) then Writeln (0) else
if (TraveledDistance mod S <> 0) and (V>0) then writeln (TraveledDistance mod S ); {Если пройденный путь больше длины МКАДа,а скорость больше нуля}
If (TraveledDistance<S) and (V>0) then writeln (TraveledDistance); {If traveled distance less than quantity of posts}
If (TraveledDistance<S) and (V<0) then writeln ((S)-TraveledDistance);
If (TraveledDistance mod S <> 0 ) and (V<0) then writeln ((S) - (TraveledDistance mod S));
end
end.
                        