Паскаль ошыбка

[Sky{Force}]

type 
person=record 
name, sname :string[20]; 
OT :string[10]; 
stat :integer; 
end; 

var spisok:array[1..10] of person; 
i :integer; 

begin ; 

for i:=1 to 2 do begin with spisok 

write('Name - ');readln(name); 
write('Familia - ');readln(sname); 
write('Ot4ecTBO - ');readln(OT); 
write('CTATb 1-жіноча,2-чоловіча - ');readln(stat); 

end; 
end; 

writeln; 
for i:=1 to 2 do begin 
if spisok[i].stat:=1 then write(' ',spisok[i].sname,' ',spisok[i].OT,' ',spisok[i].name,' 'c 8 marta' '); 
end; 
readln; 
end.

Когда ее запускаю выбивает ошибка ерор 3... и курсор стает на строчке readln(name);

[s-andriano]

Почитайте, как записывается with.

[Mad_Cat]

with spisok[i] do
begin
write('Name - ');readln(name); 
write('Familia - ');readln(sname); 
write('Ot4ecTBO - ');readln(OT); 
write('CTATb 1-жіноча,2-чоловіча - ');readln(stat); 
end;