Нужно отредактировать с учетом полученного задания, не понимаю как исправить код

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Math;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    RadioGroup1: TRadioGroup;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    CheckBox1: TCheckBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject); 
var
x, y, z, u, ma, d: extended; 
begin 
memo1.Lines.clear;
memo1.Lines.add('Student Alex'); 
 
x:= strtofloat(edit1.Text);
memo1.lines.Add('x = ' + edit1.Text); 
y:= strtofloat(edit2.Text); 
memo1.lines.Add('y = ' + edit2.Text);
z:= strtofloat(edit3.Text); 
memo1.lines.Add('z = ' + edit3.Text); 
u:=0;
 
case radiogroup1.ItemIndex of 
0: u:= cos(x);
1: u:= sin(x); 
2: u:= sin(x)/cos(x);
end; 
 
if CheckBox1.checked then 
begin
u:= abs(x); 
y:= abs(y);
z:= abs(z); 
end;
 
if radiogroup1.ItemIndex > -1 then
begin 
if u > y then ma:=u else ma:=y;
if z > ma then ma:=z; 
if CheckBox1.Checked then
memo1.Lines.add('maxabs = '+floattostrf(ma,fffixed,8,2)) 
else
memo1.Lines.add('max = '+floattostrf(ma,ffgeneral,8,2)); 
 
if u > y then 
begin
d:= power((sqr(u)-u), 3) + arctan(sqr(u)); 
memo1.lines.add('');
memo1.lines.add('x > y');
memo1.Lines.add('d = ' + floattostrf(d, fffixed, 8, 2));
end;
if y > u then
begin
d:= power((y - sqr(u)), 3) + arctan(sqr(u));
memo1.lines.add('');
memo1.lines.add(' y > x');
memo1.Lines.add('d = ' + floattostrf(d, fffixed, 8, 2));
end;
if y = u then
begin
d:= power((y + sqr(u)), 3) + 0.5;
memo1.lines.add('');
memo1.lines.add('y = x');
memo1.Lines.add('d = ' + floattostrf(d, fffixed, 8, 2));
end;
end
else memo1.lines.add('Select function U(x)');
end;
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.Text:= '0,1';
edit2.Text:= '0,356';
edit3.Text:= '0,23';
 
end;
 
end.