Вычислить расход бензина и его стоимость

uses crt;
const n=1000;
var p:integer;
    u:string;
procedure prostoe;
const max=1000;
var a:array [1..6] of real;
    rubl,rast,litr:real;
    j:string;
    t:integer;
begin
 t:=0;
 write('Введите расход, литры на километры: ');
 read(a[1]);  //z
 write(' литров на');
 read(a[2]);  //t
 writeln(' километров');
 write('Введите расстояние между пунктами: ');
 read(a[6]);  //x
 writeln(' километров');
 write('Введите стоимость литра бензина: ');
 read(a[3]);  //y
 writeln(' рублей');
 writeln('Учитывать обратный путь? (yes,no)');
 while t<>max do
 begin
  readln(j);
  if j='no' then
  begin
   a[4]:=a[1]/a[2];  //j
   a[5]:=a[3]*a[4]; //v
   litr:=a[4]*a[6];
   rubl:=a[5]*a[6];
   rast:=a[6];
   writeln('Общее растояние:',rast,' километров');
   writeln('Было потрачено:',litr,' литров бензина, на сумму:',rubl,' рублей'); 
   t:=t+max;
  end;
  if j='yes' then
  begin
   a[6]:=a[6]*2;
   a[4]:=a[1]/a[2];  //j
   a[5]:=a[3]*a[4]; //v
   litr:=a[4]*a[6];
   rubl:=a[5]*a[6];
   rast:=a[6];
   writeln('Общее растояние:',rast,' километров');
   writeln('Было потрачено:',litr,' литров бензина, на сумму:',rubl,' рублей'); 
   t:=t+max;
  end;
 end; 
end;
begin
 SetWindowCaption('Ращет расхода бензина');
 prostoe;
 begin
p:=0;
while p<>n do
 begin
  writeln('Повторить программу? (yes,no)');
  readln(u);
  if u='yes' then
  begin
   prostoe;
  end;
  if u='no' then
  begin
   p:=p+n;
  end;
 end;
end;
end.

uses crt;
var u:string;
procedure prostoe;
var rash,rast,stm,rub:real;
begin
 write('Введите расход, литры на 100 км: ');
 read(rash);
 write('Введите расстояние между пунктами в километрах: ');
 read(rast);
 write('Введите стоимость 1 литра бензина в рублях: ');
 read(stm);
 repeat
 writeln('Учитывать обратный путь? (yes,no)');
 readln(u);
 until (u='yes')or(u='no');
 if u='yes' then rast:=rast*2;
 rash:=rash*rast/100;
 rub:=stm*rash;
 writeln('Общее растояние:',rast:0:2,' километров');
 writeln('Было потрачено:',rash:0:2,' литров бензина, на сумму:',rub:0:2,' рублей');
end;
begin
 SetWindowCaption('Расчет расхода и стоимости бензина');
 repeat
 prostoe;
 writeln('Повторить программу? (yes,no)');
 repeat
 readln(u);
 until(u='yes')or(u='no');
 until u='no';
end.