Подскажите, в чем ошибка? В Паскаль я новичок, не понимаю где допустила ошибку. Пожалуйста.

Question

Разработать алгоритм и программу вычисления функции y=(F+0.35)/ci

F={█(0,если z≥0.02
F =0.45,если 0≤z≤0.02
F=z^3,если-0.5≤z<0
F= z-2, если z<-0.5)
Z =(0.5 (x-2.5))/x^2
Аргумент х изменяется в диапазоне 0.25≤х≤3 с шагом h_x = 0.25;
сi - элемент массива значений { сi } = {0.25; 2.03;3}

PROGRAM ФУНКЦИЯ;
var i,x,z,y,A,B,F:REAL;
c:array[1..3] of real;
Begin
x:=0.25;
while x<=3 do
begin
A:=sqr(x);
if A<= 0 then writeln (' решений нет') else
begin B:=0.5*(x-2.5); z:=B/A; end
If z>=0.02 then F:=0;
If (z<0.02) and (z>=0) then F:=0.45;
If (z<0) and (z>=-0,5) then F:=exp(ln(z)*3);
If z<-0.5 then F:=z-2;
end;

c[1]:=0.25;
c[2]:=2.03;
c[3]:=3;
for i=1 to 3 do y:=(F+0.35)/c;
write (x,y);
x:=x+0.25;
end.

я все написала как было указано в задании. Массив там был

Анна Лысова · Accepted Answer

И где твоя программа? 
Код лучше вставить на pastebin.com, тут он обычно искажается, а сюда - ссылку. 
И при чем тут какой-то массив значений?

Жанна · Answer

1. Идентификатор состоит из букв английского алфавита, цифр и знака _ и начинается со не с цифры. Имя программы - идентификатор. ФУНКЦИЯ - это что такое? 
2. A:=sqr(x); 
if A<= 0 then writeln (' решений нет') 
Это что, такой оригинальный способ проверить, что x не равен 0 - возвести его в квадрат и проверить, что квадрат не меньше нуля? А if x<>0 then чем не угодил? 
3. begin B:=0.5*(x-2.5); z:=B/A; end - точки с запятой Пушкин ставить за тобой будет? 
4. Менять значение переменной x, управляющей циклом, лучше все-таки в самом цикле, правда? 
5. И вообще, запускаешь компилятор. Компилятор сообщает об ошибке. Ошибку исправляешь, снова запускаешь компилятор и т. д. Выкладывать некорректную программу невежливо - мы тут не компиляторы. Ну, разве что ты не понимаешь, что компилятор сообщает, но тогда задавай конкретный вопрос: такая-то ошибка, а я не понимаю, почему.