procedure TForm1.Button1Click(Sender: TObject); // Зберегти дані var sum,j: integer; begin //зчитування даних з форми x[i].Prizv := Edit1. Text; x[i].name:= Edit2. Text; x[i].data:=DateEdit1.Text; x[i].estimation[1]:= strToInt(Edit4.Text); x[i].estimation[2]:= strToInt(Edit5.Text); x[i].estimation[3]:= strToInt(Edit6.Text); x[i].estimation[4]:= strToInt(Edit7.Text); x[i].estimation[5]:= strToInt(Edit8.Text); //підрахунок середнього балу sum:= 0; for j:=1 to 5 do sum:=sum +x[i].estimation[j]; x[i].s_ball:=sum / 5; inc(i); //очищення полів введення Edit1.Clear; Edit2.Clear; Edit4.Clear; Edit5.Clear; Edit6.Clear; Edit7.Clear; Edit8.Clear; end;