Определить сменную производительность бесчокерного трактора

Uses Crt;
const
  z =420; 
  f = 0.8;
  vxx = 80;
  vgrx = 40;
  tp = 2;
  r = 45;
 
var
 x,l,q, t,P: real;
 
begin
 
  x := 6; 
  while x <= 18 do 
  begin
    l := 300; 
    while l <= 500 do 
    begin
 
      q := 0.2; 
      while q <= 0.6 do 
      begin
        P := ((Z - r) * f * x * q) / ((l / vxx) + (x * t) + (l / vgrx) + tp);
 
     writeln('x=',x:3:1,' q=',q,' l=',l,' P=',P:0:4); 
        q := q + 0.1;
        
      end; 
      l := l + 50; 
    end;
    
    x := x + 3; 
  end;
end.

 
var qq, ww, ee, rr: integer; 
p: real; 
u: file of char; 
a: char; 
F,y ,g, R, l,vxx,vgrx,x,t,tp,q,C1, C2, Vs: real; 
 
function lol(qq, ww, ee : integer; Vs : real) : real; 
begin 
P := ((y - r) * f * x * q) / ((l / vxx) + (x * t) + (l / vgrx) + tp); 
end; 
begin 
Writeln('Введите исходные данные'); 
Writeln('Введите T'); read(y); 
Writeln('Введите r'); read(r); 
Writeln('Введите f'); read(f); 
Writeln('Введите x'); read(x); 
Writeln('Введите q'); read(q); 
Writeln('Введите l'); read(l); 
Writeln('Введите vxx'); read(vxx); 
Writeln('Введите vgrx'); read(vgrx); 
Writeln('Введите tp'); read(tp); 
 
assign(u, 'H:\Новая папка\bel.txt'); 
rewrite(u); 
 
writeln('X(шт)':8, 'l(м)':8, 'Q(м3)':8,  'P()':8); 
for qq := 6 to 18 do 
for ww := 300 to 500 do 
for ee := 0 to 1 do 
writeln(qq:8, ww:8, q:8, lol(qq, ww, ee, 2*vs/10):8:3); 
close(u); 
end.