Составить программу для вычисления таблицы значения функции

Program archio;
uses    crt;
var     x, x1, x2, dx, y : real;
        k                : integer;
        ch               : char;
begin
  clrscr;
  repeat
    write('Введите начальное значение X1 (больше нуля) = ');readln(x1);
  until x1>0;
  repeat
    write('Введите конечное значение (больше X1) = ');readln(x2);
  until x2>x1;
  repeat
    write('Введите шаг вычисления значения (больше нуля) = ');readln(dx);
  until dx>0;
  writeln('Вычисление функции y=x/(2*v(x)):');
  window(1,5,80,23);
  x:=x1;k:=0;
  while (x<=x2*1.001) do
    begin
      inc(k);
      y:=x/(2*sqrt(x));
      writeln('x = ',x:10:4,'      y = ',y:10:4);
      x:=x+dx;
      if (k>=18) then
         begin
           write('Продолжить <Enter>, закончить <Esc> ...');
           repeat
             ch:=readkey;
             if ch=#27 then exit;
           until ch=#13;
           writeln;k:=0;clrscr;
         end;
    end;
  window(1,1,80,25);
  readln;
end.