Программа для создания записи о данных студента, а также вывода на экран повторных фамилий и имен

program program9;
type anketa=record
Name: string[10]; //Имя
Fam: string[18]; //Фамилия
vozrast: integer; //Возраст
pol: string; //Пол
kod_grup: integer; //код группы
end;
var
a: integer; //Информатика
b: integer; //Высшая математика
c: integer; //Русский язык
d: integer; //Программирование
e: integer; //Офисное ПО
f: integer; //Курсовая работа
S: real; //Средний балл
    i: integer;
    student : Array[1..10] of Anketa;
   ST:string;
j,k,l,P:integer;    
{---------------------Процедура ввода данных в массив записей}
procedure Input_Data;
begin
writeln('Введите сведения о ',i,'-м студенте');
writeln('Введите фамилиюю студента: ');  //фамилия
Readln (student[i].Fam);
writeln('Введите имя студента: ');  //имя
Readln (student[i].Name);
writeln('Введите возраст студента: ');  //возраст
Readln (student[i].vozrast);
writeln('Введите пол студента: '); //пол
readln(student[i].pol);
writeln('Введите группу студента: '); //группа
readln(student[i].kod_grup);
writeln('Введите оценку по Информатике: '); //информатика
readln(a);
writeln('Введите оценку по Высшей математике: '); //Высшая математика
readln(b);
writeln('Введите оценку по Русскому языку: '); //Русс.яз.
readln(c);
writeln('Введите оценку по Программированию: '); //Программирование
readln(d);
writeln('Введите оценку по Офисному ПО: ');  //офисное ПО
readln(e);
writeln('Введите оценку по Курсовой работе: '); //курсовая работа
readln(f);
S:=((a+b+c+d+e+f)/6);
end;
 
{---------Процедура вывода на экран содержимого текущей записи}
procedure Write_Data;
begin
    with student[i] do
    begin
writeln('Фамилия: ',Fam);
writeln('Имя: ',Name);
writeln('Возраст: ',vozrast);
writeln('Пол: ',pol);
writeln('Код группы: ',kod_grup);
writeln('Оценка по информатике: ',a);
writeln('Оценка по Высшей математике: ',b);
writeln('Оценка по Русскому языку: ',c);
writeln('Оценка по Программированию: ',d);
writeln('Оценка по Офисному ПО: ',e);
writeln('Оценка по Курсовой работе: ',f);
writeln('Средний балл студента: ',S);
writeln;
writeln;
end;
end;
const n=2;
begin
for i:=1 to N do Input_Data;
writeln;
writeln;
for i:=1 to N do write_Data;
readln();
 
 
for i:=1 to n-1 do
      begin
      P:=0;
      for j:=i+1 to n do
       if (Student[i].name=student[j].name)and (student[i].fam=student[j].fam) then
        begin
         if l=1 then
          begin
           student[l].name:=student[j].name;
           student[l].fam:=student[j].fam;
           inc(l);
          end;
          k:=l;
          while k<>0 do
           begin
           if (student[j].name=student[k].name) and (student[j].fam=student[k].fam) then
           begin
            inc(P);
            break;
            end;
           dec(k);
          end;
            if P=0 then
            begin
             student[l].name:=student[j].name;
             student[l].fam:=student[j].fam;
             inc(l);
            end;
          end;
         end;
       for i:=1 to l do
        writeln('Повторяющееся имя студентов: ',student[i].name,' ',student[i].fam);
end.