про выборку в цикле

[T@tali]

скажите пожалуйста как задать выборку правильно не знаю .. надо чтобы результате выводились студенты у которых инициалы совпадают.... а у меня выводятся студенты у которых имя фамилия отчество полностью совпадают....

а мне надо чтобы только по первым буквам совпадали то есть по инициалам...
помогите пожалуйста исправит кусок этого кода

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.

[Stilet]

А ты пошаговкой программу пройди, и выясни как условие работает.
Скажем я криминала не вижу.

[p51x]

надо чтобы результате выводились студенты у которых инициалы совпадают....

Начнем отсюда: наверно, следует понимать, что надо сравнить инициалы двух студентов и вывести их, если совпали?

Тогда ваш код неправильный.

[Stilet]

что надо сравнить инициалы двух студентов

А я думал что нужно сравнить инициалы фамилии имени и отчества одного студня...