Программа для удаления двоечников)

Type
  TStudent = Record
    FIO : String[100];
    Val1 : Byte;
    Val2 : Byte;
    Val3 : Byte;
    Val4 : Byte;
    Val5 : Byte;
  End;

A : Array Of TStudent;

Type
  TStudent = Record
    FIO : String[100];
    Val1 : Byte;
    Val2 : Byte;
    Val3 : Byte;
    Val4 : Byte;
    Val5 : Byte;
  End;
  
Var
  A : Array Of TStudent;
  i, StudentCount : Integer;
Begin
  WriteLn('Количество стедентов');
  ReadLn(StudentCount);
  SetLength(A, StudentCount);
  For i := 0 To StudentCount - 1 Do
  Begin
    WriteLn('Введите оценку по первому предмету:');
    ReadLn(A[i].Val1);
    WriteLn('Введите оценку по второму предмету:');
    ReadLn(A[i].Val2);
    WriteLn('Введите оценку по третьему предмету:');
    ReadLn(A[i].Val3);
    WriteLn('Введите оценку по четвертому предмету:');
    ReadLn(A[i].Val4);
    WriteLn('Введите оценку по пятому предмету:');
    ReadLn(A[i].Val5);
  End;
  
  { тут удаляем двоечников }
  
  ReadLn;
End.

uses crt;
Type
  TStudent = Record
    FIO : String[20];
    OCN : array[1..5] of Byte;
   End;
 
Var
  A : Array Of TStudent;
  i,j,StudentCount,k,k2 : Integer;
Begin
  WriteLn('Количество стедентов');
  ReadLn(StudentCount);
  SetLength(A, StudentCount);
  For i := 0 To StudentCount - 1 Do
   Begin
    writeln('Студент ',i+1);
    with A[i] do
     begin
      write('Фамилия: ');readln(A[i].FIO);
      writeln('Введите 5 оценок [2..5]:');
      for j:=1 to 5 do
       begin
        repeat
         write(j,'=');
         readln(OCN[j]);
        until OCN[j] in [2..5];
       end; 
    end;
   end;
clrscr;
writeln('Список студентов и их оценки:');
for i:=0 to StudentCount - 1 Do
 begin
  write(A[i].FIO);
  for j:=1 to 5 do
  write(' ',A[i].OCN[j]);
  writeln;
 end; 
i:=0;
k:=0;
while i<StudentCount do
 begin
  k2:=0;
  j:=1;
  while(j<=5)and(k2=0) do
  if A[i].OCN[j]=2 then k2:=1
  else j:=j+1;
  if k2=1 then
   begin
    k:=1;
    if i=StudentCount-1 then StudentCount:=StudentCount-1
    else
     begin
      for j:=i to StudentCount-2 do
      A[j]:=A[j+1];
      StudentCount:=StudentCount-1;
     end;
   end
  else i:=i+1;
 end;
writeln; 
if k=0 then write('Двоечников нет') 
else
 begin
  writeln('Список студентов без двоечников:');
  for i:=0 to StudentCount - 1 Do
   begin
    write(A[i].FIO);
    for j:=1 to 5 do
    write(' ',A[i].OCN[j]);
    writeln;
   end; 
 end; 
readln 
end.