Имеется массив экзаменационных оценок студ.группы: А=(5, 4, 3, 5, 2,…,4); n=25, где т-число студ. в группе. Вычислить и вывести количество пятерок, четверок, троек и двоек — Pascal(Паскаль)

Uses
 Crt;
Const
 N = 25;
Type
 TIndex = 1..N;
 TArray = Array [TIndex] Of Real;
Var
 I:Integer;
 Arr:TArray;
 
Begin
ClrScr;
 
Arr[1] := 5;
Arr[2] := 4;
{и т.д. - заполнение массива}
 
Begin
For I = 1 To N Do
If Arr[I] = 5 Then Write(I:3)
 
For I = 1 To N Do
If Arr[I] = 4 Then Write(I:3)
 
For I = 1 To N Do
If Arr[I] = 3 Then Write(I:3)
 
For I = 1 To N Do
If Arr[I] = 2 Then Write(I:3)
 
End.