Исходя из массива оценок по предметам найти студентов, имеющих право на получение стипендии

var p: array [1..6, 1..3] of integer;
    i, j: integer;
    t: real;
begin
  for i := 1 to 6 do
    begin
      writeln('Введите оценки ', i, '-го студента:');
      for j := 1 to 3 do
        begin
          write(j, ' предмет: ');
          readln(p[i, j])
        end
    end;
  write('Студенты, имеющие право на стипендию: ');
  for i := 1 to 6 do
    begin
      t := 0;
      for j := 1 to 3 do t := t + p[i, j];
      if t / 3 >= 4 then write(i, ' ')
    end;
  readln
end.

var p: array [1..6, 1..3] of integer;
    i, j: integer;
    t: real;
    b: boolean;
begin
  b := true;
  for i := 1 to 6 do
    begin
      writeln('Введите оценки ', i, '-го студента:');
      for j := 1 to 3 do
        repeat
          write(j, ' предмет: ');
          readln(p[i, j]);
          if (p[i, j] < 1) or (p[i, j] > 5) then writeln('Недопустимая оценка. Повторите ввод.')
        until (p[i, j] >= 1) and (p[i, j] <= 5)
    end;
  write('Студенты, имеющие право на стипендию: ');
  for i := 1 to 6 do
    begin
      t := 0;
      for j := 1 to 3 do t := t + p[i, j];
      if t / 3 >= 4
        then begin
          write(i, ' ');
          b := false
        end
    end;
  if b then write('таких студентов нет.');
  readln
end.