АСОИ, Delphi, много вариантов 2 сем / 2стеки / меняет местами нач и кон. показывает последний элемент / Unit1

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,Unit2;

type
TForm1 = class(TForm)
Edit1: TEdit;
ListBox1: TListBox;
Edit2: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Label1: TLabel;
Label2: TLabel;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Lst: TList;


implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
c: integer;
begin
c:=StrToInt(Edit1.Text);
Listbox1.Items.Add(Edit1.Text);
Lst.Addk(c);
inc(Lst.nm_zap);
Edit1.Clear;

end;



procedure TForm1.FormCreate(Sender: TObject);
begin
Lst:=Tlist.Create;
Lst.nm_zap:=0;
Edit1.Clear;
Edit2.Clear;
end;



procedure TForm1.Button2Click(Sender: TObject);
var
a,b:integer;
begin
Lst.Readspk(a);
Lst.Readsp1(b);
Lst.Add1(a);
Lst.Addk(b);
Listbox1.Clear;
Lst.Print(ListBox1);

end;



procedure TForm1.Button3Click(Sender: TObject);
var
c:integer;
begin
Randomize;
c:=Random(100);
Listbox1.Items.Add(inttostr(c));
Lst.Addk(c);
inc(Lst.nm_zap);

end;



procedure TForm1.Button4Click(Sender: TObject);
begin
Edit2.Text:=IntToStr(Lst.Ariphm);
end;



procedure TForm1.Button5Click(Sender: TObject);
begin
Edit2.Text:=IntToStr(Lst.Quadr);
end;



end.