Вывести на экран фамилии и имена учащихся, сдавших экзамены только на 4 и 5

uses crt;
 type
   Atype = record
      Name : string [20];
      SurName: string [15];
      Mark          : array [1..3] of 1..5;
 end;
 var  SchoolChild : array [1..100] of Atype;
      kol, plus   : byte;
      i,j,n       : integer;
      z           : set of byte;
begin
Readln (kol);
With SchoolChild[i] do
 For i:=1 to kol do
  begin
   Write ('Введите Имя: ',i,'  ');
   Readln (Name);
   Write ('Введите Фамилию ',i,'  ');
   Readln (SurName);
    For j:=1 to 3 do
     begin
      Write ('Введите оценку №', j,'  ');
      Readln (Mark[j]);
     end;
   If (Mark[1] >= 4) and (Mark[2] >= 4) and (Mark[3] >= 4)then
    begin
      inc(plus);
      z := z + [i];
    end;
end;
clrscr;
Writeln ('Количество учащихся, которые получили только 4-е и 5-ть = ',plus);
If plus <> 0 then
begin
 With SchoolChild[i] do
  For i:=1 to kol do
   If i in z then
    Writeln (SchoolChild[i].Name,' ',SchoolChild[i].SurName);
 end
else Writeln ('Никто не получил только 4-е и 5-ть');
end.

uses crt;
 type
   Atype = record
      Name : string [20];
      SurName: string [15];
      Mark          : array [1..3] of 1..5;
 end;
 var  SchoolChild : array [1..100] of Atype;
      kol, plus   : byte;
      i,j,n       : integer;
      z           : set of byte;
begin
Writeln ('Êîëè÷åñòâî çàïèñåé: ');
Readln (kol);
With SchoolChild[i] do
 For i:=1 to kol do
  begin
   Readln (Name);
   Readln (SurName);
    For j:=1 to 3 do
     begin
      Read (Mark[j]);
     end;
   If (Mark[1] >= 4) and (Mark[2] >= 4) and (Mark[3] >= 4)then
    begin
      inc(plus);
      z := z + [i];
    end;
end;
clrscr;
Writeln ('Êîëè÷åñòâî ó÷àùèõñÿ, êîòîðûå ïîëó÷èëè òîëüêî 4-å è 5-òü = ',plus);
If plus <> 0 then
begin
 With SchoolChild[i] do
  For i:=1 to kol do
   If i in z then
    Writeln (SchoolChild[i].Name,' ',SchoolChild[i].SurName);
 end
else Writeln ('Íèêòî íå ïîëó÷èë òîëüêî 4-å è 5-òü');
end.