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

[Рэнэ]

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

[Рэнэ]

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

{-------Построение графика----------}
Procedure Draw;
const n=20;
type
MasDat=array[1..n] of Integer;
MasMax=array[1..35] of Real;
MasMin=array[1..35] of Real;
MasSred=array[1..35] of Real;
Var
x1,x2,x3:MasDat;
y1:MasMax;
y2:MasMin;
y3:MasSred;
Begin
Assign (F1, 'c:\Vivod.txt');
Reset (F1);
While Not EOF (F1) do
begin
Read (F1,x1);
Readln (F1,y2);
LineTo(round(Mx01+Msx*x1), round(My09-Msy*y2));

end;
Close (F1);
end;