подскажите пожалуйста

program kurs15;
uses crt;
var rx,dx,xdog,ydog,xrabbit,yrabbit,time,time1:real;
trk:text;
begin
write('ââåäèòå âðåìÿ èçìåíåíèÿ äâèæåíèÿ ñîáàêè(â ñåêóíäàõ)');
readln(time);
rx:=0;
dx:=10*time;
xdog:=0;
ydog:=0;
xrabbit:=0;
yrabbit:=100;
time1:0
assign  (trk,'track.txt');
rewrite (trk);
writeln(trk,'track of dog.variant 15.');
writeln(trk,'------------------------------');
writeln(trk,'|    x    |    y    |  TIME  |');
writeln(trk,'-------------------------------');
writeln(trk,'|  ',xdog:0:3,'     |  ',ydog:0:3,'   |  ',time1:0:3,'    |');
writeln(trk,'------------------------------');
while xdog<=xrabbit do begin
{1=100}
xdog:=xdog+dx;
ydog:=ydog+dx;
rx:rx+5*time;
xrabbit:=rx/sqrt(2)+100;
yrabbit:=100;
time1:=time1+time;
if ydog<10 then begin
if xdog<10 then
writeln(trk,'|  ',xdog:0:3,'     |  ',ydog:0:3,'   |  ',time1:0:3,'    |')
else if xdog<100 then
writeln(trk,'|  ',xdog:0:3,'     |  ',ydog:0:3,'   |  ',time1:0:3,'    |') else
writeln(trk,'|  ',xdog:0:3,'     |  ',ydog:0:3,'   |  ',time1:0:3,'    |');
end else begin
if xdog<10 then
writeln(trk,'|  ',xdog:0:3,'     |  ',ydog:0:3,'   |  ',time1:0:3,'    |')
else if xdog<100 then
writeln(trk,'|  ',xdog:0:3,'     |  ',ydog:0:3,'   |  ',time1:0:3,'    |') else
writeln(trk,'|  ',xdog:0:3,'     |  ',ydog:0:3,'   |  ',time1:0:3,'    |');
end;
writeln(trk,'------------------------------');
end;
close(trk);
writrln('');
wtiteln('òðàåêòîðèÿ äâèæåíèÿ ñîáàêè ðàñ÷èòàíà');
writeln('êîîðäèíàòû êëþ÷åâûõ òî÷åê çàïèñàíû â ôàéë track.txt');
readln;
end.