Ошибка в готовой программе - Pascal ABC (12615)

Формулировка задачи:

                    Листинг программы
                
 
                        
                          
                    
Var
n,k,s,x:integer;
a,b,c:real;
begin
Write ('vvedite nachalnoe i konechnoe znachenie, shag);
readln(n);
readln(k);
readln(s);
write('vvedite a,b,c);
readln(a);
readln(b);
readln(c);
for x:=n to k do
begin
   if (x<5) AND (c<>0) then
      begin
      f:=-a*x*x-b;
      write(f);
      end;
   else if (x>5) AND (c=0) then
      begin
      f:=(x-a)/x;
      write(f);
      end;
   else
       begin
       f:=(-x)/c;
       write(f);
       end;
x:=x+s;
end;
end.

Пишу в Pascal ABC, пока выдал ошибку в 5 строке: неизвестный идентификатор Write, в чём ошибка?

Решение задачи: «Ошибка в готовой программе»

Листинг программы

Var
n,k,s,x:integer;
a,b,c,f:real;
begin
Write ('vvedite nachalnoe i konechnoe znachenie, shag');
readln(n);
readln(k);
readln(s);
write('vvedite a,b,c');
readln(a);
readln(b);
readln(c);
x:=n;
while x <= k do
begin
   if (x<5) AND (c<>0) then
      begin
      f:=-a*x*x-b;
      writeln(f);
      end
   else if (x>5) AND (c=0) then
      begin
      f:=(x-a)/x;
      writeln(f);
      end
   else
       begin
       f:=(-x)/c;
       writeln(f);
       end;
x:=x+s;
end;
end.

Объяснение кода листинга программы

В начале программы объявляются переменные n, k, s, x типа integer и переменные a, b, c, f типа real.
Затем происходит чтение ввода от пользователя для переменных n, k, s, x и a, b, c.
После этого происходит чтение ввода для переменной f.
Далее, в цикле while выполняются следующие действия:
- Проверка условия: если x меньше 5 и c не равно 0, то выполняется блок кода внутри if.
  - Вычисляется значение f как -axx-b.
  - Значение f записывается в файл.
- Если условие if не выполнено, то проверяется условие else if x больше 5 и c равно 0.
  - Вычисляется значение f как (x-a)/x.
  - Значение f записывается в файл.
  - Если и это условие не выполнено, то проверяется последнее условие else.
  - Вычисляется значение f как (-x)/c.
  - Значение f записывается в файл.
После завершения цикла x увеличивается на s.
Программа заканчивается.