Пошук заданого елемента масиву

Який об'єкт використовують в програмі Lazarus для введення та виведення масиву?

Що знаходить дана програма?procedure TForm1.Button1Click(Sender: TObject);var a: array [1..10] of real; i: integer; s: real;begin for i := 1 to 10 doa[i] := StrToFloat(Memo1.Lines[i-1]);   s := 0; for i := 1 to 10 do s := s + a[i]; Label1.Caption := FloatToStr(s);end;