Массив записи информации

program qqqq;
uses crt;
type
vid = (Ucheba, Rabota, Pensia);
anketa=record
fio: string;
voz: string;
kv: string;
case V : vid of
Ucheba : (u : string);
Rabota : (r : string);
Pensia : (p : integer);
end;
const count1=3;
var q:anketa;
S:array[1..count1] of anketa;
i,k,n,m,count:integer;
Vybor:byte;
BEGIN
clrscr;
writeln ('введите количество жилбцов');
readln (count);
for i:=1 to count do
begin
writeln ('выберите деятельность');
writeln ('1-учеба , 2-работа , 3-пенсия');
readln (Vybor);
case Vybor of
1 : S[i].V:=Ucheba;
2 : S[i].V:=Rabota;
3 : S[i].V:=Pensia;
end; 
with S[i] do
case V of 
Ucheba : begin
writeln ('введите данные' ,i, -ого жильца' );
writeln ('введите фио');
readln (q.fio);
writeln ('введите возраст ');
readln (q.voz);
writeln ('‚введите номер кв');
readln(q.kv);
writeln ('введите место учебы');
readln (u);
end;
Rabota : begin
writeln ('введите данные' ,i, -ого жильца' );
writeln ('введите фио');
readln (q.fio);
writeln ('введите возраст ');
readln (q.voz);
writeln ('‚введите номер кв');
readln(q.kv);
writeln ('введите место работы');
readln (r);
end;
Pensia : begin
writeln ('введите данные' ,i, -ого жильца' );
writeln ('введите фио');
readln (q.fio);
writeln ('введите возраст ');
readln (q.voz);
writeln ('‚введите номер кв');
readln(q.kv);
writeln ('‚ўвведите год выхода на пенсию');
readln (p);
end; 
end;
end;
with S[i] do
for i:=1 to count do 
begin
writeln ('фио ',i,'-ого жильца :', q. fio );
writeln('возраст ',i,'-ого жильца :', q. voz);
writeln('номер кв ',i,'-ого жильца :',q.kv);
writeln;
end;
readln;
END.