unit Unit1;

{$mode objfpc}{$H+}

interface

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

type

  { TForm1 }

  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Panel1: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;
  t:array[1..6] of integer;
  t2:array[1..3] of integer;
  ma, maior, me, menor, i, cont: integer;
implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  if i=6 then
i:=i;
i:=i+1;
t[i]:= Strtoint(edit1.text);
edit1.clear;
edit1.setfocus;
Edit1.text:=('');
label1.caption:= inttostr (i);
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  me:=999;
for cont:= 1 to 6 do
begin

if t[cont]>ma then
ma:=t[cont];

if t[cont]<me then
me:=t[cont];


end;
edit2.text:= IntToStr(ma);
edit3.text:= IntToStr(me);
edit1.setfocus;
Edit1.text:=('zero');
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
  edit1.setfocus;
  Edit1.text:=('zero');
  Edit3.text:=('zero');
  Edit2.text:=('zero');
end;

{end;}

end.