Распечатать данных студентов с одной тройкой

uses
    CRT;
const
     n=10;
type
    student=record
                  fname:string[15];
                  name:string[10];
                  by:1980..2009;
                  py:2005..2010;
                  marks:record
                              mat,fis,fiz,inf,pro,eng:byte;
                        end;
            end;
const
     ageev:student=(fname:'Àãååâ';name:'Ìèøóíÿ';by:1990;py:2009;marks:(mat:4;fis:5;fiz:2;inf:3;pro:5;eng:3));
     baib:student=(fname:'Áàéáóðèí';name:'Ýìèëüêà';by:1991;py:2009;marks:(mat:3;fis:5;fiz:2;inf:3;pro:4;eng:3));
     bosak:student=(fname:'Áîñàê';name:'Äàøà';by:1990;py:2009;marks:(mat:5;fis:5;fiz:2;inf:3;pro:5;eng:3));
     vorob:student=(fname:'Âîðîáåé';name:'Åâãåíèé';by:1990;py:2009;marks:(mat:5;fis:5;fiz:3;inf:3;pro:5;eng:5));
     david:student=(fname:'Äàâûäîâà';name:'Ëþäà';by:1990;py:2009;marks:(mat:3;fis:5;fiz:2;inf:2;pro:5;eng:5));
     dorox:student=(fname:'Äîðîõèí';name:'Äåíèñêî';by:1991;py:2009;marks:(mat:5;fis:5;fiz:5;inf:5;pro:5;eng:5));
     ivan:student=(fname:'Èâàíîâ';name:'Ñåðãåé';by:1990;py:2009;marks:(mat:4;fis:4;fiz:2;inf:3;pro:4;eng:3));
     kot:student=(fname:'Êîòîâ';name:'Íèêîëàé';by:1990;py:2009;marks:(mat:4;fis:5;fiz:2;inf:3;pro:5;eng:3));
     serg:student=(fname:'Ñåðãååâ';name:'Ñàíÿ';by:1990;py:2008;marks:(mat:5;fis:5;fiz:2;inf:4;pro:5;eng:2));
     steppe:student=(fname:'Ñò¸ïïý';name:'Ïîäàâàí';by:1992;py:2009;marks:(mat:2;fis:2;fiz:3;inf:2;pro:5;eng:5));
 
procedure sort;
var
   c,b:array[1..n]of student;
   i,j,k:byte;
   col:integer;
begin
     c[1]:=ageev;
     c[2]:=baib;
     c[3]:=bosak;
     c[4]:=vorob;
     c[5]:=david;
     c[6]:=dorox;
     c[7]:=ivan;
     c[8]:=kot;
     c[9]:=serg;
     c[10]:=steppe;
     col:=0;
     j:=1;
     k:=0;
     writeln('Список студентов до сортировки');
     for i:=1 to n do
         with c[i],marks do
              begin
                   writeln(fname:10,' ',name:7,' ',by,'  ',py,'    ',mat,'     ',fis,'    ',fiz,'    ',inf,'    ',pro,'     ',eng);
                   {Здесь вводим в массив b[i] учеников с 1 тройкой, только условия нету,K-кол-во таких учеников}
             end;
     writeln;
     writeln('Список после сортировки:');
     for i:=1 to k do
         with b[i],marks do
              writeln(fname:10,' ',name:7,' ',by,'  ',py,'    ',mat,'     ',fis,'    ',fiz,'    ',inf,'    ',pro,'     ',eng);
end;
BEGIN
    sort;
END.