Помогите исправить ошибки в тексте программы Опции

[Алина1993]

Составить блок-схему алгоритма и программу на языке ПАСКАЛЬ вычисления значения функции Y=F(x) для аргумента x, изменяющегося от xн до xк с шагом изменения Hx.

Program exp1;
Uses crt;
Var x,xn,xk,hx,a,y:real;
BEGIN
Clrscr;
Write('Введите начальное значение X: '); Readln(xn);
Write('Введите конечное значение X: '); Readln(xk);
Write('Введите шаг: '); Readln(hx);
Write('Введите a: '); Readln(a);
While xn<=xk do
begin
If (2.1<xn) and (xn<=3.8) Then
y:=4.1*Sqrt(Abs(2*xn))+Exp(-xn);
If xn>3.8 Then
y:=(xn+1)*(xn-Ln(3*xn));
If xn<=2.1 Then
y:=3*Cos(a-4*Sqr(xn));
Writeln('X= ',xn:2:1,' Y= ',y:7:3);
xn:=xn+hx;
end;
Readln
END.