[dolci2006]

Программа для нахождение среднего арифметического. невыполняет

var
  Form1: TForm1;
  N, i, p ,s: integer;
  A: array [1..100] of integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
N := StrToInt(InputBox('5.16','Введи количество чисел',''))  ;
p:= 0;

for i:=1 to n do
begin
A[i]:= StrToInt(InputBox('5.16','Введи числo',''))  ;
p := p + A[i]    ;
end

s := p / n  ;  // Сдесь ошибка
Edit1.Text:= FloatToStr(s); 

end;
end.