уважаемые эксперты!!!вот такой вопрос,помогите решить задание или подскажите что я не так делаю
1)задание: Вычислить значение двух функций для различных значений аргумента в диапазоне от "а" до "в" с шагом "h"(а в и h задаются,а<в)
результат вычислений оформляется ввиде таблицы.Если при каком-либо значении х функция неопределен,то в таблицу поместить символ "-"
сами функции:
y=tg(x)+1/sqrt(x*x-9)
z=exp(sqrt(x))+ln(x) // то есть е в степени корень из х //

2)Дана матрица
переслать в одномерный массив элементы матрицы,выделенные черным цветом(номера строк изменяются от i1 до i2, номера колонок от j1 до j2
( так же внизу дается рисунок,нарисован квадрат,а в нём ещё один только этот закрашен в черный цвет,квадрат в квадрате,только внутренний черный)

помогите пожалуйста,люди добрые



Приложение:
program ss;
const eps=0.000000000000001;
var a,b,h,x,y,z:real;

begin
Writeln('задайте a,b,h ');
readln(a,b,h);
writeln('x y z ');
x:=a;
while a<=b+eps do
begin
writeln(x:12:6);
if (x*x-9<=0) or (abs(cos(x))<eps) then write('-')
else
begin
y:=sin(x)/cos(x)+1/(sqrt(sqr(x)-9));
write(y:12:6);
end;
if x<=0 then write('----')
else
begin
z:=exp(sqrt(x))+ln(x);
writeln(z:12:6);
end;
x:=x+h;
end;
end.
у меня строки съезжаю и как то выводит не так результат,может конечно я ошибаюсь