Записи. Для заданной группы вывести фамилии студентов не получивших стипендии

program zad6;
uses crt;
 type
 zap=record  {создаем записи}
 fam : string[15];
 step:string;
 ocmat: byte;
 ocrus:byte ; {другие предметы зам допишешь}
 group:string;
 end;
 mas=array [1..5] of zap;
 var
  a:mas;
  i:byte;
  h,n,m:integer;
  flag:boolean;
  k:string;
  begin
  clrscr;
  write ('введите количество человек');
  readln(n);
  writeln;
  for m:=1 to n do
   begin
    with a[m] do
     begin
       write('введите фамилию ');
       readln(fam);
       write('введите поличил ли студент стипендию (y/n)');
       readln(step);
       write('введите  оценку по русскому');
       readln(ocrus);
       write('введите оценку по математики');
       readln(ocmat);
       write('введите группу');
       readln(group);
       writeln;
    end;
    end;
 
   for i:=1 to n do
   flag:=false;
   write('введите группу');
   readln(k);
   for i:=1 to n do
   with a[i] do
   if (k=group) and (step='y')  then
    begin
    writeln(fam);{если хочешь оценки можешь тоже вывести}
    flag:=true;
    end;
  if (ocmat>=4) and (ocrus>=4) then h=h+1;
  if (flag=false) then writeln('таких учеников нет');
  write('количество учеников имеющих положительные оценки=',h);
readkey;
   end.