Помогите пож-та с задачей Pascal

[Annabelle]

Построить алгоритм ДО и алгоритм ПОКА для вычислений значения функции на отрезке [а,b] с шагом h. Написать программу.
F= x - sin x

    uses crt;
  function F(x:real):real;
  begin
  F:=x-sin(x);
  end;
  var x,a,b,h,y:real;
      n,i:integer;
  begin
  clrscr;
  write('Начало интервала a=');
  readln(a);
  repeat
  write('Конецинтервала >',a:0:2,' b=');
  readln(b);
  until b>a;
  repeat
  write('Шагтабулирования <',(b-a):0:2,' h=');
  readln(h);
  until h<b-a;
  n:=round((b-a)/h)+1;
  writeln('ЦиклДО:');
  
  x:=a;
  repeat
    writeln('x=',x:5:2,'  F(x)=',F(x):8:4);
    x:=x+h;
  until x>b+0.000001;
  
  write('Press Enter...');
  readln;
  writeln('ЦиклПОКА:');
  x:=a;
  while x<b+0.000001 do
   begin
    writeln('x=',x:5:2,'  F(x)=',F(x):8:4);
    x:=x+h;
   end;
  write('Press Enter...');
  readln
  end.

Препод сказал что задача решена не верно т.к. алгоритм ДО и ПОКА - два разных алгоритма

Блок - схема:

[Castor]

Вопрос номер один: зачем нужна неиспользуемая переменная n? (n:=round((b-a)/h)+1; ). А ещё зачем то объявлена y...
Вопрос номер два: я, конечно, далёк от программирования, но вроде как положено переменные инициализировать перед употреблением в пищу. Где?

[maddbuzz]

Построить алгоритм ДО и алгоритм ПОКА для вычислений значения функции на отрезке [а,b] с шагом h. Написать программу.
F= x - sin x
...
Препод сказал что задача решена не верно т.к. алгоритм ДО и ПОКА - два разных алгоритма
...

И зачем эти "+0.000001" ?
Наверно, преподу нужно так:

uses crt;

function F(x:real):real
begin
	F:=x-sin(x);
end;

var x,a,b,h:real;
begin
	clrscr;
	write('Начало интервала a=');
	readln(a);
	repeat
		write('Конец интервала >',a:0:2,' b=');
		readln(b);
	until b>a;
	repeat
		write('Шаг табулирования <',(b-a):0:2,' h=');
		readln(h);
	until h<b-a;

	writeln('Цикл ДО:');
	x:=a;
	repeat
		writeln('x=',x:5:2,'  F(x)=',F(x):8:4);
		x:=x+h;
	until x>b;
	write('Press Enter...');
	readln;

	writeln('Цикл ПОКА:');
	x:=a;
	while x<=b do
	begin
		writeln('x=',x:5:2,'  F(x)=',F(x):8:4);
		x:=x+h;
	end;
	write('Press Enter...');
	readln;
end.

Вот ещё вариант для второго цикла:

	...
	writeln('Цикл ПОКА:');
	x:=b;
	while x>=a do
	begin
		writeln('x=',x:5:2,'  F(x)=',F(x):8:4);
		x:=x-h;
	end;
	...

"... задача решена не верно т.к. алгоритм ДО и ПОКА - два разных алгоритма" - я хз, как эту фразу правильно толковать

[Castor]

"... задача решена не верно т.к. алгоритм ДО и ПОКА - два разных алгоритма" - я хз, как эту фразу правильно толковать

Я догадываюсь: "У циклов ДО и ПОКА должны быть разные условия выхода из цикла".