Помогите проверить задачю.

[Dmitriy-e-nest]

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Button1: TButton;
Button2: TButton;
StringGrid1: TStringGrid;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
N:integer;
implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
Var i:integer;
begin
N:=StrToInt(Edit1.Text);
StringGrid1.Col Count:=N+1;
StringGrid1.Cells[0,0]:='A[i]';
end;
procedure TForm1.Button2Click(Sender: TObject);
Var A:array[0..50]of real; S:real; f,i:integer;
begin
N:=StrToInt(Edit1.Text);
for i:=1 to N do
A[i]:=StrToFloat(StringGrid1.Cells[i,0]);
f:=0;
for i:=1 to N do
if (A[i]=0) and (f=0) then
l:=1;
f:=1;
S:=0;
for i:=1 to N do
S:=S+A[i];
Edit2.Text:=FloatToStr(S);
end;

end.

[puporev]

Интересно как можно проверить задачЮ, если неизвестно, что программа должна делать?