Определить, будет ли начислена студенту стипендия по результатам экзаменов

program lab2;
Var
 NS,e,r,t,mark,i:Byte;
 b:Boolean;
Begin
 Writeln('вариант');
 Writeln('введите оценки');
 Write('математика');
 Readln(e);
 Write('история');
 Readln(r);
 Write('русский');
 Readln(t);
 Write('физика');
 Readln(NS);
 b:=false;
 i:=0;
 repeat
  Inc(i);
  Write('Next mark: ');
  Readln(mark);
  if mark<4 then b:=true;
 If b then write('*не будет')else write('будет');
END.

type
  othcenki = record
    urok: string;
    othcenka: byte;
  end;
 
var
  C: othcenki;
  n, i: byte;
  b: boolean;
 
begin
  b := true;
  Write('Введите количество предметов: ');
  readln(n);
  writeln;
  for i := 1 to n do
  begin
    Write(' введите предмет: ');
    Readln(C.urok);
    Write(' введите оценку: ');
    Readln(C.othcenka);
    if C.othcenka < 4 then b := false
  end;
  writeln;
  if b then write(' Стипендия будет начислена.')
  else write('Стипендия не будет начислена.')
end.