PascalABC.NET, диаграмма состоящая из равнобедренных треугольников

[РезедаМуратова]

Здравствуйте, помогите пожалуйста откорректировать программу, по данному заданию:
используя динамические объекты и виртуальные методы, разработать программу вывода на экран и смены цвета диаграммы, состоящей из равнобедренных треугольников.

uses graphABC;
const a:array[1..7] of real=(15.05,10.30,17.23,11.60,19.32,21.95,18.70);
procedure trg(x, y, r: integer; c: color);
var i,x0,y0,w:integer;
  p: array of point;
      mx:real;
  //i: integer;
  u: real;
begin
  mx:=a[1];
  for i:=1 to 7 do
if a[i]>mx then mx:=a[i];{находим максимум}
  u := pi / 2;
  setlength(p, 4);
  for i := 0 to 3 do
  begin
    p[i].X := x + round(r * cos(u));
    p[i].Y := y - round(r * sin(u));
    u := u + 2 * pi / 3;
  end;
  setbrushcolor(c);
  polygon(p);
end;
 
begin
  setwindowsize(600, 200);
  centerwindow;
  trg(100, 100, 80, clRed);
  trg(300, 100, 80, clYellow);
  trg(500, 100, 80, clGreen);
  str(a[i]:5:2,s);{преобразуем числа в строку}
  textout(x0+4*w*(i-1),y0-round(a[i]*h)-20,s);{выводим цену выше столбика}
end.

Выводит ошибку Program1.pas(31) : Неизвестное имя 'i'

[evg_m]

var i: integer;
begin
....
for i:=....
begin
...
end;

end.