посмотрите пожалуйста, что не так ?

[Конь Антон]

var i,a,b:integer;
x,y,min,max:real;
begin
writeln('Введите a');
readln(a);
writeln('Введите b');
readln(b);
x:=a;
min:=1000;
max:=-1000;
y:=0;
for i:= a to b do
begin
repeat
x:=x+0.1;
y:= 3*x*x + x - 4;
if y<min then min:=y;
if y>max then max:=y;
until x<=b;
end;
writeln('Максимум функции в интервале от ',a,' до ',b,' равен ',max);
writeln('Минимум функции в интервале от ',a,' до ',b,' равен ',min);
end.

вот задание: найти max и min функции на отрезке [а,b] с шагом 0,1

[type_Oleg]

.. что не так ?
Во - первых, почему a,b:integer; ? Что, границы могут быть только целые?
Во - вторых, зачем аж два цикла - for и repeat ?
У вас сначала repeat что-то ищет при x - от a до b, потом - при x - от b до b, потом снова много раз - при x - от b до b. И потом что-то выводит, непонятно что.

[Serge_Bliznykov]

в соответствии с абсолютно верными замечаниями type_Oleg (ну и исходя из собственного мнения)
я позволил себе переписать ваш код:

function f(x: real):real;
begin
  f := 3*x*x + x - 4;
end;

var a,b,x,y,min,max:real;
begin
  writeln('Введите a');
  readln(a);
  writeln('Введите b');
  readln(b);
  if a>b then begin x:=a; a:=b; b:=x end;

  x:=a;
  min:=f(x);
  max:=f(x);
  repeat
    y:= f(x);
    if y<min then min:=y;
    if y>max then max:=y;
    x:=x+0.01;
  until x>b;
  writeln('Максимум функции в интервале от ',a,' до ',b,' равен ',max);
  writeln('Минимум функции в интервале от ',a,' до ',b,' равен ',min);
end.