Составить программу обработки сведений о студентах своей группы

Program lab1;
type
student=record
fio:string[30];
pol:string[1];
mesto:string[5];
pol1:string[1];
end;
var
pol1:string[1];
gruppa:array[1..25] of student;
i,n:integer;
f: file of student;
begin
assign(f,'gruppa.dat');
rewrite(f);
write('Введите количество студентов: ');
readln(n);
write('Выберите пол студента,которого будем искать (м/ж): ');
readln(pol1);
writeln;
for i:=1 to n do
with gruppa[i] do
begin
write('Введите ФИО: ');
readln(fio);
write('Введите пол (м/ж) ');
readln(pol);
write('Введите место жительства(кв/об): ');
readln(mesto);
writeln;
end;
for i:=1 to n do
write(f,gruppa[i]);
close(f);
end.

const n=4;
type
student=record
fio:string[30];
pol:string[1];
mesto:string[5];
pol1:string[1];
end;
var
gruppa:array[1..n] of student;
i:integer;
pol,pol1:string[1];
f:file of student;
g:text;
fio:string[30];
begin
assign(f,'gruppa.dat');
reset(f);
for i:=1 to n do
with gruppa[i] do
begin
read(f,gruppa[i]);
write(gruppa[i].pol1,' ');
write(gruppa[i].fio,' ');
write(gruppa[i].pol,' ');
writeln(gruppa[i].mesto,' ');
end;
 
 assign(g, 'Out.txt');
 rewrite(g);
writeln(g,'Cтуденты заданного пола, проживающие в общежитии: ');
for i:=1 to n do 
with gruppa[i] do 
if mesto='об' then writeln(g,' ',fio);
 
close(f);
close(g);
end.