Нарисовать график функции y=x^2-1 на отрезке [-1;2] - Pascal

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

Помогите написать программу для этой задачи. Возможно кто-то уже решал что-то подобное. http://www.cyberforum.ru/attachment....1&d=1290082563

Решение задачи: «Нарисовать график функции y=x^2-1 на отрезке [-1;2]»

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

uses crt;
var a:array[1..25] of integer;
    i,j,ox:byte;
    mn,mx:integer;
    x:real;
begin
clrscr;
x:=-1.1;
mn:=round(40*(x*x-1));
for i:=1 to 25 do
 begin
  x:=x+0.1;
  a[i]:=round(40*(x*x-1));{вычислим значения, умноженные на 40}
  if a[i]<mn then mn:=a[i]{найдеи минимальное}
 end;
ox:=abs(mn)+1;{определим положение оси}
for i:=1 to 25 do
 begin
  gotoXY(ox,i);
  write('|');{нарисуем ось Х}
 end;
for i:=1 to 25 do
 begin
  gotoXY(ox+a[i],i);
  write('*');{нарисуем график}
 end;
readln
end.

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

В начале кода подключается библиотека crt, которая отвечает за работу с консолью.
Переменная a объявляется как массив целых чисел от 1 до 25.
Три переменные i, j и ox объявляются как байтовые (в данном случае используются для прохода по массиву).
Переменная mn и mx объявляются как целые числа и инициализируются значением 40xx-1 (минимальное значение функции y=x^2-1).
В цикле for происходит вычисление значений a[i] с помощью формулы 40(xx-1), где x - текущее значение переменной x. Значения, полученные в результате, сравниваются с минимальным значением mn. Если полученное значение меньше mn, то mn обновляется на это значение.
После того, как найдено минимальное значение mn, определяется положение оси (переменная ox) как абсолютное значение mn плюс 1.
В следующем цикле for происходит движение курсора мыши к точке на графике, соответствующей координатам (ox+a[i],i).
Затем происходит запись символа | в консоль, который обозначает ось X.
Наконец, происходит вывод символа *, который обозначает точку на графике.
В конце программы происходит чтение символа Enter для выхода из программы.