Записи. Ввод с клавиатуры массива записей со сведениями о студентах. Вывод данных о студентах двоечниках. Сортировка по алфавиту

uses crt;
const N=3;     //количество студентов
type
    FIO = record
    family  : string[20];   // ôàìèëèÿ
    name    : string[15];   // èìÿ
    surname : string[20];   // îò÷åñòâî
end;
type mas=array[1..5] of byte;
type
    student=record
    studentFIO   : FIO;
    group        : byte;
    points       : mas;
end;
//*******************************************************
var BAZA : array[1..N] of student;
    m    : student;
    i,j,k  : integer;
begin
ScrollingOn;
//******************ÇÀÏÎËÍÅÍÈÅ ÄÀÍÍÛÕ**********************************
for i:=1 to N do
begin
    write('Ôàìèëèÿ: '); readln(BAZA[i].studentFIO.family);
    write('Èìÿ: '); readln(BAZA[i].studentFIO.name);
    write('Îò÷åñòâî: '); readln(BAZA[i].studentFIO.surname);
    write('ãðóïïà: '); readln(BAZA[i].group);
    writeln('îöåíêè:');
    for j:=1 to 5 do begin
        write(j,') ');
        readln(BAZA[i].points[j]);
    end;
end;
clrscr;
//******************ÂÛÂÎÄ ÄÀÍÍÛÕ**********************************
for i := 1 to N-1 do
    for j := 1 to N-i do
        if BAZA[j].studentFIO.family > BAZA[j+1].studentFIO.family then
        begin
             //SWAP(BAZA[j], BAZA[j+1]);
             m := BAZA[j];
             BAZA[j] := BAZA[j+1];
             BAZA[j+1] := m;
        end;
writeln('*********************************************************');
for i:=1 to N do
begin
    write('Ôàìèëèÿ: '); writeln(BAZA[i].studentFIO.family);
    write('Èìÿ: '); writeln(BAZA[i].studentFIO.name);
    write('Îò÷åñòâî: '); writeln(BAZA[i].studentFIO.surname);
    write('ãðóïïà: '); writeln(BAZA[i].group);
    writeln('îöåíêè:');
    for j:=1 to 5 do write(BAZA[i].points[j]:3);
    writeln;
writeln('*********************************************************');
end;
//*****************************************************************
k:=0;
for i:=1 to N do
begin
    for j:=1 to 5 do
        if BAZA[i].points[j] = 2 then begin
           k:=k+1;
           if k = 1 then writeln('ñòóäåíòû ó êîòîðûõ åñòü õîòÿ áû îäíà äâîéêà:');
           writeln(BAZA[i].studentFIO.family,'  ',BAZA[i].group);
           break;
        end;
end;
if k = 0 then writeln('ñòóäåíòîâ ñ äâîéêàìè íåò!');
end.