Задача на применение пользовательского типа ЗАПИСЬ

program prim8;
uses crt;
type
    rec = record;
    name: string;
    fam: string;
    sim: integer;
    god: integer;
 
end;
const
     n=3;
var
   a: array [1..n] of rec;
   nom,i: integer;
   c: rec;
begin
     writeln ('Введите имя, фамилию, год обучения, класс');
for i:=1 to n do
begin
     writeln (i, ' ученик');
     readln (a[i].name);
     readln (a[i].fam);
     readln (a[i].god);
     readln (a[i].sim);
end;
for i:=1 to n do
    if (a[i].fam)=(a[i+1].fam) then writeln ('однофамильцы в школе - ', a[i].fam)
    else if (a[i].fam)<>(a[i+1].fam) then writeln ('нет однофамильцев в школе');
    if (a[i].fam=a[i+1].fam) and (a[i].sim=a[i+1].sim)
    then writeln ('однофамильцы в классе - ', a[i].fam) else
    writeln ('нет однофамильцев в классе');
end.

Program Third_Help;
Uses crt;
Const n=2;                     {Количество учащихся}     
Type student = record
     name: string;             {Имя}
     surname: string;         {Фамилия}
     god: integer;              {Год обучения, то есть нынешний класс}
     class: char;               {Буква класса}
     end;
Var x: array [1..n] of student;
    i, k: integer;
    onesurname1: integer;   {Количество учащихся с одинаковыми фамилиями}
    onesurname2: integer;   {Количество однофамильцев в параллельных классах}
    god8: integer;              {Количесво учащихся в 8-ых классах}
    god10: integer;             {Количесво учащихся в 10-ых классах}
Begin
clrscr;                                                     
For i:= 1 to n do                                   {Вводим данные об учениках}
    with x[i] do
    begin
         Writeln('Vvedite NAME: ');
         Readln(name);
         Writeln('Vvedite SURNAME: ');
         Readln(surname);
         Writeln('Vvedite GOD: ');
         Readln(god);
         Writeln('Vvedite CLASS: ');
         Readln(class);
    end;
Writeln(' ');
For i:= 1 to n do                   {Для наглядности выводим данные на экран}
    with x[i] do
    begin
Writeln('NAME: ',name:8,' SURNAME: ',surname:10,' YEAR: ',god:2,' CLASS: ',class:4);
    end;
For i:= 1 to n do
    begin
         if x[i].god=8                {Подсчитываем количество учащихся в 8-ых классах}
         then inc(god8);
 
         if x[i].god=10
         then inc(god10);          {Подсчитываем количество учащихся в 10-ых классах}
 
         for k:= i+1 to n do
             begin
                 if x[i].surname=x[k].surname   
                 then inc(onesurname1);       {Подсчитываем количество однофамильцев}
 
                 if (x[i].surname=x[k].surname) and (x[i].god=x[k].god)     
                 then inc(onesurname2); {Подсчитываем количество однофамильцев в параллельных классах}
 
             end;
    end;
 
if onesurname1>0 then writeln('The first answer: YES!');      {Ответ на вопрос №1}
If onesurname1=0 then writeln('The first answer: NO!');
 
if onesurname2>0 then writeln('The second answer: YES!');  {Ответ на вопрос №2}
if onesurname2=0 then  writeln('The second answer: NO!');
 
if god8>god10 then Writeln('The third answer: bolshe na ',god8-god10);   {Ответ на вопрос №3}
if god8<god10 then Writeln('The third answer: menshe na ',god10-god8);
if god8=god10 then Writeln('The third answer: odinakovo');
 
Readln;
end.