Ну что сказать - нет, господин Редькин, не пойдет. Ни та, ни другая программы не запускаются, например, полный (первый вариант) ругается на неописанную переменную С в модуле Forma_vv, упрощенный вариант ругается еще на что-то, в общем, я повторяю условие: дайте мне В ЯВНОМ ВИДЕ файл, по которому нужно построить диаграмму. Я НЕ ХОЧУ запускать (и уж тем более отлаживать) вашу программу. Можно даже не в виде файла, а прямо здесь - колонка значений аргумента (или название, признак и т.п.) и колонка соответствующих значений функции. Всё.