оператор цикла с параметром for to do

[D1zz1]

Подскажите что надо изменить в коде, чтоб он выдавал список полученных значений

Program aser;
var y,h,x,a,b:real;
    m,i,n:integer;
Begin
writeln('i');
readln(i);
a:=pi/3;
b:=2*pi/3;
m:=20;
h:=(b-a)/m;
x:=a+i*h;
if x>2*pi/3 then writeln('tochka ne vhodit v [a;b]');
For i:=0 to n do y:=cos(x);
y:=cos(x);
writeln('"y"=',y:2:2);
readln;
end.

задание состояло в том Составить программу с использованием цикла с параметром для вычислений значений функции F(x) на отрезке [A;B] при изменении аргумента в точках Xi = A +i*H, где Н-шаг равный(В-А)/М, М-заданное целое число, обозначающее количество разбиений отрезка [A;B].Вывод на экран значения вводимых исходных данных и результатом вычислений, оформить в виде таблицы с указанием в шапке таблицы имен аргумента и функции.

функция F(x) = cos(x)
A= pi/3
B=(2*pi)/3
M=12

ткните носом пожалуйста где исправить и на что лучше исправит

[Voxa7]

Program aser;
var y,h,x,a,b:real;
    m,i:integer;
Begin
a:=pi/3;
b:=2*pi/3;
m:=20;
h:=(b-a)/m;
x:=a;
if x>2*pi/3 then writeln('tochka ne vhodit v [a;b]');
For i:=0 to m do 
begin
y:=cos(x);
write('"x"=',x:2:2);
writeln('     "y"=',y:2:2);
x:=x+h;
end;
readln;
end.

примерно так должно быть...