Написать программу на паскале! Нужна помощь срочно))

Створити файл, що містить відомості про здачу студентами сесії. Структура запису - індекс групи, прізвище студента, оцінки по п'яти іспитах і п'яти заліках ( "З" означає залік, "Н" - незачет ). Кількість записів - 25.
Визначити прізвища неуспішних студентів з вказівкою індексів груп і кількості заборгованостей.

program lr_5;
uses crt;
type
rec = record
index : string;
familiya : string;
ozenki : array[1..5] of byte;
zachet : array[5] of char;
massiv : array[1..5] of byte;
massiv_2:array[1..5] of byte;
end;
Var
f:file of rec;
stud : rec;
c:char;
x,s,j,i,n,min,min2,k,m:byte;
begin
clrscr;
assign(f,'D:\student\PZ-10-1\Gayday\gya.txt');
rewrite(f);
writeln(' ‚ўҐ¤ЁвҐ Ё­д®а¬ жЁо ® бв㤥­в е ! ');
repeat
writeln(' ‚ўҐ¤ЁвҐ Є®«ЁзҐбвў® § ЇЁбҐ© : ');
read(x);
until (( x >=0)and(x < 25) );
for i:=1 to x do
begin
writeln(' ‚ўҐ¤ЁвҐ д ¬Ё«Ёо ',i,' - бв㤥­в : ');
readln(stud.familiya);
writeln(' ‚ўҐ¤ЁвҐ Ё­¤ҐЄб ЈагЇЇл : ');
readln(stud.index);
writeln(' ‚ўҐ¤ЁвҐ ®жҐ­ЄЁ Ї® 5 нЄ§ ¬Ґ­ е : ');
for j:=1 to 5 do
begin
repeat
read(stud.ozenki[j]);
until((stud.ozenki[j]>1)and(stud.ozenki[j]