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

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.