for I:=1 to 10 do
begin
s:=student[i].fam;
s1:=student[i].otc;
s2:=student[i].name;
if (s[1]=s1[1])and (s1[1]=s2[1])then
writeln('фамилия студента : ', student[I].fam);end;
end.

type anketa=record
fam: string[45];
otc: string[8];
name: string[50];
curs: 1..5;
grupp: string[3]
end;
var student: array [1..100] of anketa;
 I,z,z1,z2: integer;
 s,s1,s2:string;
begin
{последовательно вводим каждую запись}
 for I:=1 to 10 do
begin
writeln ('введите сведения о', I , '-м студенте');
writeln ('введите фамилию');
readln (student[I].fam);
writeln ('введите отчество');
readln (student[I].otc);
writeln ('введите имя');
readln(student[I].name);
writeln ('введите курс');
readln(student[I].curs);
writeln ('введите группу');
readln (student[I].grupp);
end;
for I:=1 to 10 do
begin
s:=student[i].fam;
s1:=student[i].otc;
s2:=student[i].name;
if (s[1]=s1[1])and (s1[1]=s2[1])then
writeln('фамилия студента : ', student[I].fam);end;
end.

TYPE
 TTT=Record
     fam:String;
     name:String;
     otc:String;
    end;
VAR
 Student:Array[1..3] of TTT;
 s,s1,s2:String;
 i:byte;
Begin
 Student[1].fam:='Ivanov';
 Student[1].name:='Igor';
 Student[1].otc:='Isidorovich';

 Student[2].fam:='Petrova';
 Student[2].name:='Pelageya';
 Student[2].otc:='Porfiryevna';

 Student[3].fam:='Sidorov';
 Student[3].name:='Alexey';
 Student[3].otc:='Rodionovich';

 for i:=1 to 3 do
  begin
   s:=student[i].fam;
   s1:=student[i].otc;
   s2:=student[i].name;
   if (s[1]=s1[1]) and (s1[1]=s2[1]) then
    writeln('фамилия студента : ', student[I].fam);
  end;
 readln;
end.