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

[Рэнэ]

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

[volvo]

Оззя, правда? С каких пор?

Рэнэ,
проблема совсем не в этом... Ты некорректно производишь масштабирование, у тебя значения после масштабирования получаются запредельные... Смотри, как я сделал (это отображает график):

Procedure Vivod(var b: MasData;c: MasMax);
var
  i, n: byte;
  p: array[1..6] of PointType;
Begin
  Assign (F1, 'Vivod.txt'); Reset (F1);
  n := 0;
  { сначала - читаем ВСЕ данные из файла, сколько есть }
  while not seekeof(F1) do begin
    inc(n);
    Read(F1,b[n],c[n]);
  end;

  { Потом - масштабируем их: }
  for i:=1 to n do begin
    b[i] := pred(b[i]) * msx + mx01;
    c[i] := getmaxy - (c[i] * msy + my005);
  end;

  { и заносим координаты точек в полигон (хотя это вполне можно сделать в предыдущем цикле) }
  for i:=1 to n do begin
      p[i].f:=b[i]; { <--- здесь round не нужен, число и так целое }
      p[i].j:=round(c[i]); { <--- а вот тут - нужен }
    end;

  { и рисуем график }
  drawpoly(n,p);

  Close (F1);
End;