Поиск мин и макс в Delfi

[Morfi]

Ну думаю говорить тут ничего не надо, вводим пределы а и б и шаг н.
Через табулирование в кнопке должно делать и выводить.
Задача вроде и лёгкая, но я полный ноль, а от неё зависит зачёт,огромная просьба помочь.
В названии накосячил с Делфика названием,извеняйте.

[Stilet]

Лови, братюнь:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Editimin: TEdit;
    Editmin: TEdit;
    EditA: TEdit;
    EditB: TEdit;
    EditN: TEdit;
    EditMax: TEdit;
    Editimax: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var a,b,n,y,min,max:double; imin,imax:integer;
  function f(x):double; begin result:=0; end;
begin
 imin:=0; imax:=0;
 a:=StrToFloatDef(EditA.Text,0);
 b:=StrToFloatDef(EditB.Text,0);
 n:=StrToFloatDef(EditN.Text,0);
 while a<=b do begin
    y:=f(a);
    if (imin=0)or(min<y) the min:=y;
    if (imax=0)or(max>y) the max:=y;
 end;
 Editmax.Text:=Format('%5.2f',[max]);
 Editimax.Text:=Format('%5d',[imax]);
 Editmin.Text:=Format('%5.2f',[min]);
 Editimin.Text:=Format('%5d',[imin]);
end;

end.

Привет сержанту )

[Morfi]

Спасибо за помощь.