График курса доллара, нужна помощь Опции

[Рэнэ]

Написать программу, которая выводит на экран графики динамики изменения максимального, минимального и среднего курсов
доллара за заданное количество дней. Показать градацию осей. Исходные данные сформировать в текстовом файле.
Построение графика оформить в виде процедур. Параметры процедуры: массив дат, количество дней, массивы максимальных,
минимальных и средних значений курса доллара.
Изображение должно занимать большую часть. Программа не должна опираться на конкретные значения экрана.
Даже не знаю с чего начать, хоть подкиньте какую-нибудь похожую программу... так сказать для примера

[Рэнэ]

Выдает ошибку: Нужен идентефикатор поля, в чем проблема?

{-------Вывод данных из файла----------}
Procedure Vivod(var b: MasData;c: MasMax);
var i:byte;
p:array[1..6] of PointType;
Begin
Assign (F1, 'c:\Vivod.txt');
Reset (F1);
While Not EOF (F1) do
begin
for i:=1 to n do
begin
Read(F1,b[i],c[i]);
MoveTo(Mx01,My09);
for i:=1 to 6 do begin
b[i]:=(b[i]-Msx+20)*Mx;
c[i]:=getmaxy - (c[i]-Msy+40)*My;
end;
for i:=1 to 6 do begin
p[i].b:=trunc(b[i]);
p[i].c:=trunc(c[i]);
end;
drawpoly(6,p);
readln;
end;
end;
Close (F1);
End;
End;

procedure Opredelenie;
Begin
Mx := GetMaxX;
Mx01 := Round (0.1* Mx);
Mx09 := Round (0.9* Mx);
My := GetMaxY;
My09 := Round (0.9*My);
My005 := Round (0.05* My);
SetColor (12);
end;