Переписать отличников в один массив, двоечников в другой

{Даны анкетные данные студентов.Переписать отличников в один массив,
двоечников в другой.}
const
  n=3;
type
  stud=record
    fio:string[128];
    oc1,oc2,oc3:byte;
  end;
var
  a,b:array [1..n] of stud;
  k,i,m:integer;
  x:stud;
begin
  for i:=1 to n do
    begin
      write('Введите ФИО: ');  readln(x.fio);
      write('Введите 1-ю оценку: ');  readln(x.oc1);
      write('Введите 2-ю оценку: ');  readln(x.oc2);
      write('Введите 3-ю оценку: ');  readln(x.oc3);
      if (x.oc1=5) and (x.oc2=5) and  (x.oc3=5) then
        begin
          inc(k);
          a[k].fio:=x.fio;
          a[k].oc1:=x.oc1;
          a[k].oc2:=x.oc2;
          a[k].oc3:=x.oc3;
        end;
      if (x.oc1=2) and (x.oc2=2) and  (x.oc3=2) then
        begin
          inc(m);
          b[m].fio:=x.fio;
          b[m].oc1:=x.oc1;
          b[m].oc2:=x.oc2;
          b[m].oc3:=x.oc3;
        end;
    end;
  writeln('Двоечники: ');
  for i:=1 to m do
    writeln(b[i].fio,' ',b[i].oc1,' ',b[i].oc2,' ',b[i].oc3);
  writeln('Отличники: ');
  for i:=1 to k do
    writeln(a[i].fio,' ',a[i].oc1,' ',a[i].oc2,' ',a[i].oc3);
  readln;
end.