Ayuda Con Este Error :s

[darnnezt]

procedure TForm1.Button1Click(Sender: TObject);
var
pt,a,p,ah,prome1,prome2:real;
s:string;
hombre,c1,n:integer;

begin
a:=0;
p:=0;
prome1:=1;
prome2:=1;
pt:=0;
hombre:=0;
n:=0;
n:=strtoint(inputbox('IGRESE EL NUMERO DE PERSONAS',' N:',''));


for c1:=1 to n do

a:= strtofloat(inputbox('IGRESE LA ALTURA DE LA PERSONA M',' A:',''));
p:=strtofloat(inputbox('INGRESE EL PESO DE LA PERSONA KG ',' P:',''));
s:=string(inputbox('INGRSE EL SEXO DE LA PERSONA',' S:',''));



begin
if (s :=m) then
begin
hombre:=hombre+1;
ah:=ah+a;
end;

pt:=pt+p;
end;
prome1:= pt/n;
prome2:=ah/hombre;

El error se encunetra enmarcado en la zona roja, dice:
[Error] Unit1.pas(52): ')' expected but ':=' found
si alguien puede ayudar mil gracias.