Ошибка синтаксиса в чем причина? pascal

[Adenko]

суть такова есть скалярное уравнение 0,1x+0.15-sin x=0 его нужно решить возможностями pascal.
Ниже текст программы вроде бы правильный но при компиляции выдает ошибку синтаксиса не могу понять в чем проблема может быть кто то исправит мою ошибку ? буду очень благодарен.

Program LAB1_1;
Uses crt;
Var a,b,x1,x2,y1,y2,h:Real;
    k,n:Integer;
Function f(x:real):real;
Begin f:=0.1*x+0.15-sin(x);
End;
BEGIN
Clrscr;
Writeln('vvedite a='); Read(a);
Writeln('vvedite b='); Read(b);
Writeln('vvedite h='); Read(h);
k:=0; x1:=a; x2:=x1+h; y1:=f(x1);
 While x2<b do
  begin y2:=f(x2);
    if y1*y2<0 then
      begin inc(k);
        WriteLn(k,'koren [',x1:1:6,']');
      end;
    x1:=x2; x2:=x1+h; y1:=y2;
  end;
 repeat until keypressed
PROGRAM Laba1_1;
Uses Crt;
Var a,b,x1,x2,y1,y2:real;
  n,k:integer;
Const h=0.000001;
Function f(x:real):real;
Begin
  f:=0.1*x+0.15-sin(x);
End;
BEGIN
  clrscr;
  writeln('введите a,b'); read(a,b);
  k:=0; x1:=a; x2:=x1+h; y1:=f(x1);
  while x2<b do
    begin y2:=f(x2);
      if y1*y2<0 then
        begin inc(k);
          writeln (k,'-й корень [',x1:4:6,']');
        end;
      x1:=x2; x2:=x1+h; y1:=y2;
    end;
  repeat until keypressed
END.

[Serge_Bliznykov]

Program LAB1_1;
Uses crt;
Var a,b,x1,x2,y1,y2,h:Real;
    k,n:Integer;
.....
 repeat until keypressed
PROGRAM Laba1_1;
Uses Crt;

ничего странного не наблюдаете?!
Тогда скажите, сколько раз в программе может быть заголовок программы (ключевое слово program) ?!


hint. у вас некорректная попытка слепить две разные программы в одну!