求平均值问题(50分)

在memo1中输入一组数，如：1 2 2 4 5 3 6 ,求和在求平均值；要求：1+2+2,2+2+4,2+4+5,5+3+6,在memo2中返回平均值．

procedure TForm1.Button1Click(Sender: TObject);
var
s,t,w:string;
i,n:integer;
begin
s:=memo1.Text;
for i:=1 to n do
begin
t:=s[i-1]+s+s[i+1];
w:=floattostr(strtofloat(t)/３);
memo2.Text:=w;
end;
end;
　　　用此程序，运行时出错；应用数组，我也没有调用明白！请各位帮忙！

procedure TForm1.Button1Click(Sender: TObject);
var
s,w:string;
t,i:integer;
begin
s:=memo1.Text;
memo2.Text:='';
i:=1;
repeat
begin
t:=strtoint(s)+strtoint(s[i+1])+strtoint(s[i+2]);
w:=floattostr(t/3);
memo2.Text:=memo2.Text+w;
inc(i);
end;
until i=length(s)-3;
end;

接受答案了.