Удалить из списка работы с оценками 4 и 5 - Turbo Pascal (29616)

Формулировка задачи:

Необходимо удалить работы с оценками 4 и 5

program z17;
uses crt;
const n=5;
type lab=record
nom:array[1..5] of integer;
naz:array[1..5] of string;
iz:array[1..5] of string;
oc:array[1..5] of 1..5;
b:array[1..5]of boolean;
end;
mas=array[1..10] of lab;
var
buf:mas;
i:integer;
begin
clrscr;
writeln('Vvedite num');
for i:=1 to 5 do
readln(buf[i].nom[i]);
writeln('Vvedite naz');
for i:=1 to 5 do
readln(buf[i].naz[i]);
writeln('Vvedite iz');
for i:=1 to 5 do
readln(buf[i].iz[i]);
writeln('Vvedite oc');
for i:=1 to 5 do
readln(buf[i].oc[i]);
for i:=1 to 5 do
if (buf[i].oc[i]=5)or(buf[i].oc[i]=4) then buf[i].b[i]:=true;
for i:=1 to 5 do
if buf[i].b[i]<>true then writeln(buf[i].nom[i],' ', buf[i].naz[i],' ',buf[i].iz[i],' ',buf[i].oc[i]);
end.

Вот прога, но в ней просто не выводятся оценки 4 и 5, а необходимо удалить.

Решение задачи: «Удалить из списка работы с оценками 4 и 5»

Листинг программы

  j:=0;
  for i:=1 to n do
    if нужно_оставить_элемент_a[i] then begin
      Inc(j); a[j]:=a[i];
    end;
  n:=j;

Объяснение кода листинга программы

Инициализируется переменная j, которая будет использоваться для отслеживания количества оставленных элементов.
1. Запускается цикл for, который будет выполняться от 1 до n (предполагается, что n - это количество элементов в списке).
2. Внутри цикла проверяется условие: если нужно_оставить_элемент_a[i] (предполагается, что это массив, где каждый элемент представляет собой оценку) равно true, то выполняется следующая часть условия.
3. Увеличивается значение переменной j на единицу.
4. Значение переменной j присваивается переменной n. Это означает, что n теперь будет содержать количество оставленных элементов.
5. Код завершается, так как выполнены все условия цикла.