9 клас. Практична робота Складання і виконання алгоритмів опрацювання табличних величин

Завдання 1. Зміна ціни.

Дія кнопки.

Стрічки треба поставити у правильному порядку

begin
var i:integer; P:real;
  p:=p*a[i+1];
  begin

procedure TForm1.Button1Click(Sender: TObject);

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

     p:=1;

 stringGrid1.Cells[i+1,2]:=floattostr(a[i+1]);

 end; 

 for i:= 0 to 3 do

a[i+1]:=strtofloat(edit1.Text)*strtofloat(stringGrid1.Cells[i+1,1]);

  end;

 edit2.text:= floattostr(P);