Ребята, нужна помощь! Решить задачу и составить блок-схему! Опции

[OlyaRudyak]

Привет Всем!!!!! )
Нужна помощь......... отчислят, если не сдам программу по паскаль!!!!!!

ЗАДАНИЕ: Разработать алгоритм решения задачи, составить блок-схему и запрограммировать решение на языке Pascal, используя подпрограмму-функцию.

Посчитать значение функции
f(x)={(-x-1 при x<-1,
0 при-1≤x<0,
x^2 при 0≤x<1,
1/x в других случаях)

В интервале x∈[-3;3] с шагом 0,25.

Заранее спасибо! ^_^

[OlyaRudyak]

Program aaa;
Var x, y, A: real;
begin
if x<-1 then y:=-x-1
else
begin
if (x>=-1) and (x<0) then y:=0 else
begin
if (x>=0) and (x <1) then y:= sqr(x) else
y:= 1/x
end;
end;
end.
begin
x:=-3
while x>3
begin
A:=Fx(x, y)
x:=x+0.25
Writeln(`Fx=`, A)
end;
end.

Вот программа, но в ней что-то не так..... это делал мой друг, а преподователь забраковал, сказал искать ошибку!