Вывести список номеров неуспевающих студентов и вычислить абсолютную успешность

uses crt;
var
c,p:array[1..100]of real;
i,m:integer;
begin clrscr;
writeln('vvedite chislo elementov:');
write('m=');
read(m);
for i:=1 to m do begin
write('c[',i,']=');
read(c[i]);
end;
writeln('poluchennyi massiv:');
for i:=1 to m do
if abs(c[i])<1 then p[i]:=c[i] else p[i]:=1/c[i];
for i:=1 to m do
write('p[',i,']=', p[i]:2:2, '  ');
readkey;
end.

Program xa;
 
const
  n=50;
 
type
  mas=array [1..n+1] of real;
 
function yfunc(x:real):real;
begin
  yfunc:=sin(x)+cos(2*x);
end;
 
Procedure show(tmp:mas);
var
  i:integer;
begin
  for i:=0 to n do
    Write(tmp[i+1]:4:3,' ');
end;
 
var
 i:integer;
 x,y:mas;
 h:real;
begin
  for i:=0 to n do
  begin
      x[i+1]:=pi+i*2*pi/n;
      y[i+1]:=yfunc(x[i+1]);
  end;
  Writeln('X vektor:');
  show(x);
  Writeln;
  Writeln('Y vektor:');
  show(y);
  readln;
end.