Записи Delphi 7

[Nerotim]

Задание

Создать базу данных из заданного числа записей, отражающих результаты сессии: Фамилия, группа, 3 предмета, 3 оценки. По запросу о неуспевающих выдать список по алфавиту фамилий студентов по каждой группе, имеющих хоть одну оценку "2". Использовать процедуры.

Написал часть проги. Как запрограмировать неуспевающих? И прога после компилирования почему то вылетает.

Заранее спасибо

program lab ;

{$APPTYPE CONSOLE}

uses
  SysUtils, math;
  Type Tstud= record
  fam,grup: string;
  mat,inf,fiz:byte;
  end;
  Tgrup=array[1..4] of Tstud;
//==================================
  Procedure vvod(var x:Tgrup; var n:integer);
  var i : integer;
  Begin
  write('vvedite kol-vo studentov ');
  readln(n);
  for i:=1 to n do
  with x[i] do
  begin
  write(i,'.familiya ');
  readln(fam);
  write('gruppa');
  readln('grup);
  write('matan ');
  readln(mat);
  write('infa ');
  readln(inf);
  write('fizika ');
  readln(fiz);
  writeln;
  end;
  end;
  //=======================================]
  Procedure upor(var x: Tgrup; k: integer);
  var i,j:integer;
  y: Tstud;
  Begin
  for i:=1 to k do
  for j:=1 to k do
  if (x[j].fam <x[i].fam) and ((x[i].mat = 2) or (x[i].inf = 2) or (x[i].fiz = 2))
  then
  begin
  y:=x[i];
  x[i]:=x[j];
  x[j]:=y;
  end;
  end;
   //==========================================
   procedure vivod(x:Tgrup; n: integer);
   var i:integer;
   begin
   writeln('sessia');
   for i:=1 to n do
   with x[i] do
   begin
   write(fam,' ',grup,'matan-',mat,'infa-',inf,'fizika-',fiz);
   writeln;
   end ;
   end ;
   //========================================
   var x: Tgrup; n,k: integer;
   begin
   vvod(x,n);
   upor(x,k);
   vivod(x,n);
    readln;
    readln;

  { TODO -oUser -cConsole Main : Insert code here }
end.