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

[мисс_граффити]

вот так вроде работает:

Procedure Vivod(var b: MasData;var c: MasMax);
var i,days:byte;
 p:array[1..50] of PointType;
Begin
Assign (F1, 'Vivod.txt');
Reset (F1);
i:=1;
While Not EOF (F1) do
  begin
  read(F1,b[i],c[i]);
  inc(i);
  end;
Close(F1);
days:=i-2;

MoveTo(Mx01,My09);

for i:=1 to days do
  begin
  b[i]:=b[i]*Msx+60;
  c[i]:=getmaxy - c[i]*Msy-50;
  p[i].f:=round(b[i]);
  p[i].j:=round(c[i]);
  end;

drawpoly(days,p);
End;

хотя я бы подсчет дней и заполнение массивов b и c вынесла отдельной процедурой. да и заданию это соответствовало бы точнее.

Добавлено через 2 мин.
как всегда увлеклась отладкой и не заметила, что все уже сделано