найти ошыбку в програме

[anurid]

1. Найти область допустимых значений аргумента x.
2. Написать процедуру или функцию, которая вычисляет область допустимых
значений аргумента x.
3. Написать процедуру или функцию, которая вычисляет значение выражения
f(x) .
4. Ввести аргумент x с помощью клавиатуры и определить, попадает ли он в
область допустимых значений. В случае попадания аргумента x в область допустимых
значений вычислить значение выражения f(x)и вывести его на экран монитора, в
случае непопадания аргумента x в область допустимых значений вывести об этом
информационное сообщение.

вот что я набрал но оно чето неправельно пашет:

program lab5;
uses crt;
var x: real;
function ODZ(x1:real):integer;
begin
     if  (abs(0.1*x*x+x)-2>=0) and ((x-4)<>0) then ODZ:=1 else ODZ:=0;
end;
function func(x2:real):real;
var f1,f2: real;
begin
      f1:=arctan(sqrt(abs(0.1*x*x+x))-2)/sqrt(1-sqr(sqrt(abs(0.1*x*x+x))-2));

 f2:=x-4;
 func:=f1/f2;
 end;
 begin
 clrscr;
 writeln('Vvedite x');
 readln(x);
 if ODZ(x)=0 then writeln('x nevhodit v ODZ')
 else writeln('znachenia functia ravno ',func(x):2:3);
 readkey;
 end.

Помогите розобратса
Зарание спасибо)

[anurid]

Если несложно проверьте ёще одну програму
задание:
В двухмерном массиве, который имеет одинаковое количество столбцов и строк,
поменять местами элементы, расположенные симметрично относительно
диагонали, противоположной главной.

Program Lab7;
uses crt;
const max=20;
var a:array[1..max,1..max] of real;
m,i,j:byte;
x:real;
begin
clrscr;
randomize;
repeat
write('Vvedite masiv ',max,' m=');
readln(m);
until m in [1..max];
writeln('Ishodnuy masiv :');
for i:=1 to m do
begin
for j:=1 to m do
begin
a[i,j]:=10*random;
write(a[i,j]:6:2);
end;
writeln;
end;
writeln;
for i:=1 to m-1 do
for j:=1 to m-i do
begin
x:=a[i,j];
a[i,j]:=a[m-j+1,m-i+1];
a[m-j+1,m-i+1]:=x;
end;
writeln('Trasponirovanaya po pobochnoy diagonali :');
for i:=1 to m do
begin
for j:=1 to m do
write(a[i,j]:6:2);
writeln;
end;
readln
end.