вычислить значения функции

uses crt;
const line='-------------------------';
var x,y,sum,sar,min,h: real;
    k: integer;
begin
writeln(line);
writeln('|     x     |     y     |');
writeln(line);
x:=-3; k:=1;  h:=0.5; sum:=0;
min:=x*2+x-2;
repeat
y:=x*2+x-2;
writeln('|',x:8:1,'|':4,y:9:2,'|':3);
sum:=sum+y; inc(k);
if y<min then min:=y;
x:=x+h;
until x>4;
writeln(line);
writeln('Sr.ar.=',sum/k:7:2);
writeln('Min.=',min:9:2);
readkey
end.

uses crt;
const line='-------------------------';    //констрантой задаю линию, которая будет разделять заголовок таблицы
var x,y,sum,sar,min,h: real;               //переменные вещественного типа
    k: integer;                             //переменная целого типа для подсчета количества вычисленных значений (потом чтобы среднее получить)
begin                                       //запуск программы
writeln(line);                              //вывод на экран константы "линия"
writeln('|     x     |     y     |');       //вывод на экран заголовка таблицы
writeln(line);                              //вывод на экран константы "линия"
x:=-3;                                      //начальное значение х - нижняя граница диапазона
k:=0;                                      //изначально количество операций равно 0
h:=0.5;                                    //шаг
sum:=0;                                     //изначально сумма равна 0
min:=x*2+x-2;                               //предполагаю, что первое же значение функции и будет минимумом (потом в цикле проверю)
repeat                                      //цикл с постусловием, запуск
y:=x*2+x-2;                                 //вычисление функции для данного значения х
writeln('|',x:8:1,'|':4,y:9:2,'|':3);       //вывод значений х и у на экран
sum:=sum+y;                                  //текущее значение у добавляю к функции
inc(k);                                      //увеличиваю количество полученных значений
if y<min then min:=y;                        //сравниваю текущее значение с минимумом, если занчение меньше минимума, записываю его как минимум
x:=x+h;                                      //прибавляю шаг к предыдущему значению х
until x>4;                                   //проверка постусловия, пока х не больше 4
writeln(line);                               //вывод на экран константы "линия"
writeln('Sr.ar.=',sum/k:7:2);               //вывод среднего арифметического (сумма делить на количество) в формате: ширина поля вывода =7, 2 знака после запятой
writeln('Min.=',min:9:2);                   //вывод минимального значения на поле шириной =9, 2 знака после запятой
readkey
end.