Определить время встречи и расстояние, пройденное первым участник в одну строчку через пробел

Program Sorevnovania;
var S1,S2,S3,V0,V1,V3:integer;
f_in, f_out: text;
BEGIN
assign (f_in,'3.txt');
   reset (f_in);
   readln (f_in,S1,S2,S3,V0,V1,V3);
   assign (f_out,'4.txt');
   rewrite (f_out);
      if ((S1>0) and (S1<=10))
                  and ((S2>0) and (S2<=25))
                      and ((S3>0) and (S3<=100))
                          and ((V0>0) and (V0<=60))
                              and ((V1>0) and (V1<=5000))
                                  and ((V3>0) and (V3<=200))
      then   writeln (f_out,  S1,' ',S2,' ',S3,' ',V0,' ',V1,' ',V3) // просто проверка
           else writeln (f_out);
      close (f_in);
      close (f_out);
END.

Program Sorevnovania;
var S1,S2,S3,V0,V1,V3:integer;
a,k,b,c,d,sum,Sm: real;
f_in, f_out: text;
BEGIN
assign (f_in,'3.txt');
   reset (f_in);
   readln (f_in,S1,S2,S3,V0,V1,V3);
   assign (f_out,'4.txt');
   rewrite (f_out);
      if ((S1>0) and (S1<=10))
                  and ((S2>0) and (S2<=25))
                      and ((S3>0) and (S3<=100))
                          and ((V0>0) and (V0<=60))
                              and ((V1>0) and (V1<=5000))
                                  and ((V3>0) and (V3<=200))
      then  begin
      a:=S1+S2+S3; // расстояние пройденное вторым пешеходом
      k:= V1/1000;  // перевод из м/ч в км/ч
      b:= S1/k; // первая часть времени пройденная вторым пешеходом
      c:= S2/V0; // вторая часть времени пройденная вторым пешеходом
      d:= S3/V3; // третья часть времени пройденная вторым пешеходом
      sum:=b+c+d; // общее время в пути второго пешехода
      Sm:=sum*V0; // т, к они выехали одновременно, то время второго пешехода умножаем на скорость первого
        write(f_out,sum,' ',Sm);
        end
           else writeln (f_out);
      close (f_in);
      close (f_out);
END.