Нужно вывести список студентов, которые нуждаются в общежитии, вывести в виде таблицы — Pascal(Паскаль)

uses crt;
type
    anketa=record
    Fam:string[50];
    GodR:integer; {год рождения}
    GodOkS:string[4]; {год окончания школы}
    Obschaga:integer; {нуждается ли в общаге}
    oc1:1..5; {оценка по алнебре}
    oc2:1..5; {оценка по русскому языку}
    oc3:1..5; {оценка по информатике}
    oc4:1..5; {оценка по физике}
    end;
const n=2;
var
   x:array[1..n] of anketa;
   i:integer;
   f:file of anketa;
begin
     Assign(f,'C:\abbitur.txt');
     Rewrite(f);   clrscr;
for i:=1 to n do
    with x[i] do
         begin
         writeln('введите Фамилию');
         readln(Fam);
         writeln('введите год рождения');
         readln(GodR);
         writeln('введите год окончания школы');
         readln(GodOkS);
         writeln('нуждается ли в общежитии?(1-да или 2-нет)');
         readln(Obschaga);
         writeln('оценки в аттестате:');
         writeln('оценка по алгебре');
         readln(oc1);
         writeln('оценка по русскому языку');
         readln(oc2);
         writeln('Вступительные экзамены:');
         writeln('оценка по информатике');
         readln(oc3);
         writeln('оценка по физике');
         readln(oc4);
         end;
write(f,x[i]);
clrscr;
writeln('Списки:');
writeln('  __________________________________________________________________________  ');
writeln('|| Фамилия |Год     |Год      |Вступит экзамены|     Аттестат     |Общежитие||');
writeln('||         |рождения|окончания|----------------|------|-----------|         ||');
writeln('||         |        |школы    |Алгебра|русский |Физика|Информатика|         ||');
writeln('||_________|________|_________|_______|________|______|___________|_________||');
for i:=1 to n do
writeln('||',x[i].fam:9,'|',x[i].GodR:8,'|',x[i].GodOkS:9,'|',x[i].oc1:7,
        '|',x[i].oc2:8,'|',x[i].oc3:6,'|',x[i].oc4:11,'|',x[i].Obschaga:9,'||');
writeln('||__________________________________________________________________________||');
writeln('1- нуждается в общежитии');
writeln('2- не нуждается в общежитии');
readln;
writeln('список студентов, нуждающихся в общежитии');
writeln;
for i:=1 to n do
    begin
    if x[i].Obschaga=1 then
       begin
       writeln('||',x[i].fam:9,'|',x[i].GodR:8,'|',x[i].GodOkS:9,'|',x[i].oc1:7,
       '|',x[i].oc2:8,'|',x[i].oc3:6,'|',x[i].oc4:11,'|',x[i].Obschaga:6,'||');
       writeln('||_______________________________________________________________________||');
       end;
    end;
close(f);
readln;
end.