Модель кафе: Исправить формулы программы

unit Magdonalds;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Label4: TLabel;
    Edit2: TEdit;
    Label5: TLabel;
    Edit3: TEdit;
    Label6: TLabel;
    Edit4: TEdit;
    Label7: TLabel;
    Edit5: TEdit;
    Label8: TLabel;
    Label9: TLabel;
    Edit6: TEdit;
    Label10: TLabel;
    Edit7: TEdit;
    Label11: TLabel;
    Edit8: TEdit;
    Label12: TLabel;
    Edit9: TEdit;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    Label19: TLabel;
    Edit15: TEdit;
    Label20: TLabel;
    Label21: TLabel;
    Edit16: TEdit;
    Label22: TLabel;
    Edit17: TEdit;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Edit18: TEdit;
    Edit19: TEdit;
    Edit20: TEdit;
    Edit21: TEdit;
    Edit22: TEdit;
    Label29: TLabel;
    Button1: TButton;
    Label30: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
y,x1,x2,x3,x4,x5,a1,a2,a3,a4,b1,b2,b3,b4,b5,d1,d2,d3,c1,c2,c3,c4,c5,s:integer;
begin
x1:=150; x2:=200; x3:=395; x4:=460; x5:=560;
a1:=265; a2:=290; a3:=85; a4:=635;
b1:=210; b2:=260; b3:=160; b4:=225; b5:=330;
d1:=225; d2:=300; d3:=90;
c1:=330; c2:=180; c3:=300; c4:=395; c5:=355;
x1:=StrToInt(edit1.Text);
x2:=StrToInt(edit2.Text);
x3:=StrToInt(edit3.Text);
x4:=StrToInt(edit4.Text);
x5:=StrToInt(edit5.Text);
a1:=StrToInt(edit6.Text);
a2:=StrToInt(edit7.Text);
a3:=StrToInt(edit8.Text);
a4:=StrToInt(edit9.Text);
b1:=StrToInt(edit10.Text);
b2:=StrToInt(edit11.Text);
b3:=StrToInt(edit12.Text);
b4:=StrToInt(edit13.Text);
b5:=StrToInt(edit14.Text);
d1:=StrToInt(edit15.Text);
d2:=StrToInt(edit16.Text);
d3:=StrToInt(edit17.Text);
c1:=StrToInt(edit18.Text);
c2:=StrToInt(edit19.Text);
c3:=StrToInt(edit20.Text);
c4:=StrToInt(edit21.Text);
c5:=StrToInt(edit22.Text);
Label30.Caption := IntToStr(s);
s:=(x1*y)+(x2*y)+(x3*y)+(x4*y)+(x5*y)+(a1*y)+(a2*y)+(a3*y)+(a4*y)+(b1*y)+(b2*y)+(b3*y)+(b4*y)+(b5*y)+(d1*y)+(d2*y)+(d3*y)+(c1*y)+(c2*y)+(c3*y)+(c4*y)+(c5*y);
label30.Caption:=inttostr(s);
end;
end.

x: array [1..5] of Integer;

a: array [1..4] of Integer;

b: array [1..5] of Integer;

c: array [1..5] of Integer;

c: array [1..3] of Integer;