Работа с файлами, Гистограмма Опции

[volvo]

Procedure Gyst(const arr: array of integer;
          const size: integer);
var
  i, j, max: integer;
  mult_by: double;
  f: text;
begin
  ClrScr;
  max := arr[0]; { <--- Первое исправление }
  for i := 0 to pred(size) do { <--- Второе исправление }
    if max < arr[i] then max := arr[i];

  mult_by := 60 / max;

  assign(f, 'GST.TXT'); rewrite(f);

  for i := 0 to pred(size) do begin { <--- Третье исправление }
    write(f, (i*step div 1024):4, 'Kb: ');
    for j := 1 to Trunc(arr[i]*mult_by) do write(f, '*');
    writeln(f, arr[i]:(80 - trunc(arr[i]*mult_by) - 7));
  end;

  close(f);

end;

Тип TLong, насколько я помню, описывается как положено - от 0...

[Alenka]

Спасибо!