отладить мой код, пожалуйста

Program laboratorna;
var
     v,x,deltav:real;
     begin
     Writeln('VVedi v');
     Readln(v);
     deltav:=0.1;
  If (v<1) then
  begin
  while(v<1) do
   x:=exp(v * ln(1.26)) + v;
   v:=v+deltav;
   end
   else
   If (v<4) then
   begin
   while  (v<4) do
   x:= pi/2-arctan(v+0.4);
   v:= v+deltav;
   end;
   Writeln('x=',x);
   Readln
   End.

uses crt;
const dv=0.1;
function F(v:real):real;
begin
if(v>=0)and(v<1)then F:=exp(ln(1.26)*v)+v
else if(v>=1)and(v<4) then F:=pi/2-arctan(v+0.4)
end;
 
var vn,vk,v,x:real;
begin
clrscr;
writeln('Область определения функции [0;4), шаг изменения аргумента=0.1');
repeat
writeln('Введите диапазон 0<=vn<vk<4');
readln(vn,vk);
until (vn>=0)and(vk>vn)and(vk<4);
v:=vn;
while v<=vk+dv/2 do
 begin
  writeln('v=',v:4:1,'  x=',F(v):6:3);
  v:=v+dv
 end;
readln
end.

function F(v:real):real;

if(v>=0)and(v<1)then F:=exp(ln(1.26)*v)+v
else if(v>=1)and(v<4) then F:=pi/2-arctan(v+0.4)

while v<=vk+dv/2 do
 begin
  writeln('v=',v:4:1,'  x=',F(v):6:3);
  v:=v+dv
 end;