ANTICHAT — форум по информационной безопасности, OSINT и технологиям

Вообщем нужна помощь на Turbo Pascale: идет условие задачи, далше мой 1 вариант ее решения и второй только в их нужно подправить.На деюсь на ваши отклики!
Задание:
Разработать программу табулирования функций для произвольного диапазона изменения независимого параметра или аргумента.Выполнить расчет для использованных исходных значенийж: х=1-2*cos(a*y)+ln(y), a=log2(y),y є [П;2*П] ∆y=П/4
Результаты вывести в следующем виде:
Значение аргумента,значение вспомагательной функции и результата.
В программу включить ввод исходных данных и проверку диапазона от -100 до 100.Начальное значение меньше конечного, шаг разности от начального и конечного.
program primer 1;
det=pi/4;
b=2*pi;
var
a,y,x:real;
begin
y:=b;
cohile y < = с do
a:=ln (y)/ln(2);
x:=1-2*cos(a*y)+ln(y);
writeln(x,a,y);
y:=y+dety;
end;
readln;
end.
program primer2;
x,y,a,b,c,dety:real;
i,n:integer
begin
y:=pi;
b:=pi;
c:=2*pi;
det y:=pi/4;
n:=trune ((b-a)/det y);
for i:=0 to n do
begin
y:=a+(detx*i);
a:=logln(y)/ln(2);
x:=1-2*cos(a*y)+ln(y);
writeln(x,a,y);
end;
readln;
end.