Листинг подпрограмм

procedure Tform1.FormCreate(Sender: Tobject);

Begin

Edit1.Text:= ‘’;

Edit2.Text:= ‘’;

Edit3.Text:= ‘’;

end;

procedure Tform1.Button1Click(Sender: Tobject);

Begin

Edit1.Text:= ‘’;

Edit2.Text:= ‘’;

Edit3.Text:= ‘’;

end;

procedure Tform1.Button2Click(Sender: Tobject);

Begin

close;

end;

procedure Tform1.Button3Click(Sender: Tobject);

Begin

s:=Edit1.Text;

s:= concat (s, #32);

i:= 0;

while Length (s) > 0 do

Begin

i:= i+1;

p:= pos (#32,s);

ss:= copy (s,1,p-1);

Val (ss,k,code);

a[i]:= k;

delete (s,1,p);

end;

max:= a[1];

For j:= 1 to i do

if max < a[j] then max:= a[j];

min:= a[1];

For j:= 1 to i do

if min > a[j] then min:= a[j];

Edit3.Text:= IntToStr (max);

Edit2.Text:= IntToStr (min);

end;