Найти среднюю величину стипендии и вывести фамилии, имена и отчества студентов, чья стипендия меньше средней более чем на 20% — Pascal(Паскаль)

const N=10;
var   i:integer;
      stependia:real;
      sr_znach:real;
      students:array[1..N] of real;
      FIO:array[1..N] of string;
begin
  for i:=1 to N do
  begin
    WriteLn('Введите ФИО студента');
    ReadLn(FIO[i]);
    WriteLn('Введите его стипендию');
    ReadLN(students[i]);
  end;
  stependia:=0;
  for i:=1 to N do
  stependia:=stependia+students[i];
  sr_znach:=stependia/N; 
  for i:=1 to N do
  if (students[i]<0.8*sr_znach) then
  writeln(FIO[i]);
end.