Помогите переделать

[TpaXmopucm]

Помогите переделать

измените чтобы выводило учеников Которые не получают стипендию! спасибо зарание!

TYPE
St=Record
N:Byte;
Name:String;
Bd:String;
Course:Byte;
Year:Integer;
Mark:Real;
End;
VAR
f:file of St;
Stud:St;
N_st,i,j:Byte;
C:Char;
BEGIN
Assign(f, 'D:\Data');
Rewrite(f);
N_st:=0;
Repeat
Write('Next student? Y/N ');
Readln(C);
If (C='Y') or (C='y') then
begin
Inc(N_st);
With Stud do
begin
N:=N_st;
Writeln('Surname,Name (e.g. Ivanov Petr):');
Readln(Name);
Writeln('Birthday (format dd.mm.yyyy, e.g. 03.08.1743):');
Readln(Bd);
Write('Course: ');
Readln(Course);
Write('Year of entry: ');
Readln(Year);
Write('Mark: ');
Readln(Mark);
Writeln;
end;
Write(f,Stud);
end;
Until (C='N') or (C='n');
Close(f);
Reset(f);
For i:=1 to N_st do
begin
Read(f,Stud);
With Stud do
begin
write(N);
for j:=1 to 7 do write(' ');
write(Name);
for j:=Length(Name)+8 to 23 do write(' ');
writeln(Bd, Course:7, Year:11, Mark:8:2);
end;
end;
Writeln;
Write('Enter the first letter: ');
Readln(C);
Reset(f);
For i:=1 to N_st do
begin
Read(f,Stud);
With Stud do
If Name[1]=C then
begin
write(N);
for j:=1 to 7 do write(' ');
write(Name);
for j:=Length(Name)+8 to 23 do write(' ');
writeln(Bd, Course:7, Year:11, Mark:8:2);
end;
end;
Close(f);
Readln;
END.