записи*подкиньте идею

[Jamguranga]

Короче, у нас, у меня есть данные о студентах, допустим о 14 студ., которые я ввёл с клавы, данные идут так: Фамилия, имя, отчество, номер группы, курс, нужно вычислить, есть ли среди них однофамильцы. Самый простой кусок кода я написал:

uses crt;
type info=record
     name,surname,father,numg:string;
     kurs:word;
          end;
var a:array[1..100] of info;
    i,n:integer;
Begin
Clrscr;
write('Enter num. of students:');
read(n);
clrscr;
   writeln;
   writeln('Enter surname,name,father,num of group and form:');
   
       for i:=1 to n do
        with a[i] do
          read(surname,name,father,numg,kurs);
                                              for i:=1 to n do
                                                with a[i] do
                                                 if

А дальше... Кто подскажет как сравнить фамилию, так сказать "каждую с каждой", а не только соседние...
P.S. ещё стоит вопрос упорядочить их по фамилиям, тоже, как понимаете, не могу разобраться...
*Спасибо за внимание и извините меня, такого лентяя, я, честно, думаю

[ViktorR]

Обращаться к полям записи можно так:
<имя>.<поле>;
В том случае, когда элементы массива записи, то, например:

a[i].name := sName;

или, для сравнивания:

if (a[i].name = a[m].name) then
begin
   ...
end;

Как-то так ...

[Jamguranga]

всё, сделал(с вашей помошью), я явно не умею читать, ещё раз благодарен

[Jamguranga]

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

program samr;
uses crt;
type info=record
     name,surname,father,numg:string;
     kurs:word;
          end;
var a:array[1..100] of info;
    i,n,l:integer;
Begin
Clrscr;
write('Enter num. of students:');
read(n);
clrscr;
   writeln;
   writeln('Enter surname,name,father,num of group and form:');
   
       for i:=1 to n do
        with a[i] do
         begin
          writeln;
          writeln(i, ' Student');
          read(surname,name,father,numg,kurs);
         end;
            readln;
                                              for i:=1 to n do
                                                if a[1].surname = a[n].surname then
                                                 inc(l);
        if l<>0 then writeln('Na fakulteti e taki studentu') else writeln('Takux studentiv nemae');
   readln;
   end.

[Jamguranga]

что со мной?)
забыл одну строчку дописать))

 for c:=1 to n-1 do {-вот она}
                                              for i:=1 to n do
                                                if a[c].surname = a[n].surname then
                                                 inc(l);
        if l<>0 then writeln('Na fakulteti e taki studentu') else writeln('Takux studentiv nemae');
   readln;