Не выводит на экран данные после оператора условия

Program labba12;
Uses crt;
Type book=Record
fam: String[10];
name:String[10];
otch:String[10];
mat: Integer;
nach: Integer;
SB:real;
end;
Var
x: Array[1..30] of book;
i,n,p: Integer;
k:real;
BEGIN
Clrscr;
Writeln('Vvedit kilkist stydentiv grypu: '); Readln(n);
For i:=1 to n do
begin
  Writeln('Vvedit prizvuche: '); Readln(x[i].fam);
  Writeln('Vvedit imya '); Readln(x[i].name);
  Writeln('Vvedit po-batkovi '); Readln(x[i].otch);
  Writeln('Bal z matematuku: '); Readln(x[i].mat);
  Writeln('Bal z nachertalkuя: '); Readln(x[i].nach);
  x[i].SB:=(x[i].mat+x[i].nach)/2;
end;
p:=2;
Clrscr;
For i:=1 to n do
   begin
     GotoXY(2,1);  Writeln('Prizvucheя'); GotoXY(2,p); Write(x[i].fam);
     GotoXY(15,1); Writeln('Imyaя'); GotoXY(15,p); Write(x[i].name);
     GotoXY(29,1); Writeln('Po-batkovi'); GotoXY(29,p); Write(x[i].otch);
     GotoXY(41,1); Writeln('Matan'); GotoXY(41,p); Write(x[i].mat);
     GotoXY(55,1); Writeln('Nachert'); GotoXY(55,p); Write(x[i].nach);
     GotoXY(69,1); Writeln('Seredniy bal'); GotoXY(69,p); Write(x[i].SB:2:1);
     Inc(p,2);
   end;
Readln;
Writeln('Vvedit seredniy bal ');
Readln(k);
For i:=1 to n do
If x[i].SB=k Then
 begin
     GotoXY(2,1);  Writeln('Prizvucheя'); GotoXY(2,p); Write(x[i].fam);
     GotoXY(15,1); Writeln('Imyaя'); GotoXY(15,p); Write(x[i].name);
     GotoXY(29,1); Writeln('Po-batkovi'); GotoXY(29,p); Write(x[i].otch);
     GotoXY(41,1); Writeln('Matan'); GotoXY(41,p); Write(x[i].mat);
     GotoXY(55,1); Writeln('Nachert'); GotoXY(55,p); Write(x[i].nach);
     GotoXY(69,1); Writeln('Seredniy bal'); GotoXY(69,p); Write(x[i].SB);
   Inc(p,2);
 end;
END.