Распечатать фамилии и даты рождения студентов, не получивших ни одной оценки 3 за все время обучения

type sotr = record
      fio: String[30];
      ochen:2..5;
      god:integer;
End;
Var a: array[1..100] of sotr;
    b: array[1..20] of sotr;
    n, i, j, m: Integer;
    x:boolean;
Begin
     writeln('Введите кол-во учеников');
     ReadLn(n);
     for i := 1 to n do begin
     writeln ('Введите имя');
     ReadLn(a[i].fio);
     writeln ('Введите год рождения');
     ReadLn(a[i].god);
     writeln ('Введите количество оценок у учеников');
     readln (m);
     writeln ('Введите оценки');
     for j:=1 to m do
     readln(b[j].ochen);
     end;
     for i := 1 to n do
     begin
     x:=true;
     begin
     for j:=1 to m do 
     if b[j].ochen=3 then x:=false;
     if x=true then WriteLn('Без троек: ',a[i].fio,' ', a[i].god);
     end;
     end;
End.

type uch=record
     fio:string[25];
     god:integer;
     mark:2..5;
     end;
Var a:array[1..100] of uch;
    b:array[1..20]of uch;
    i, n, j, m: integer;
    x:boolean;
Begin
    writeln('Введи количество учеников');
    read(n);
    for i:=1 to n do
    begin
    writeln('Введи имя');
    readln (a[i].fio);
    writeln('Введи год рождения');
    readln (a[i].god);
    writeln('Введи кол-во оценок');
    readln (m);
    writeln('Введи оценки');
    for j:=1 to m do 
    readln (b[j].mark)
    end;
    for i:=1 to n do
    begin
    x:=true;
    for j:=1 to m do
    if b[j].mark = 3 then x:=false;
    if x=true then writeln(a[i].fio, a[i].god);
    end;
End.

type stud=record
     fam:string[25];
     dat:string[10];
     kol:integer;
     mark:array[1..50]of 2..5;
     end;
Var a:array[1..100] of stud;
    i, n, j, m: integer;
    x:boolean;
Begin
write('Введите количество учеников n=');
readln(n);
writeln('Введите данные');
for i:=1 to n do
 begin
  writeln('Студент ',i);
  with a[i] do
   begin
    write('Фамилия: '); readln(fam);
    write('Дата рождения в формате ДД.ММ.ГГГГ: ');readln(dat);
    write('Количество оценок: ');readln(kol);
    writeln('Введите ',kol,' оценок от 2 до 5');
    for j:=1 to kol do
    readln (mark[j]);
   end;
 end;
writeln('Фамилии и даты рождения студентов, не получивших ни одной оценки 3');
m:=0;
for i:=1 to n do
with a[i] do
 begin
  x:=true;
  j:=1;
  while(j<=kol)and x do
  if mark[j] = 3 then x:=false
  else inc(j);
  if x then
   begin
    m:=1;
    writeln(fam,' ',dat);
   end;
 end;
if m=0 then write('Таких студентов нет')
End.