Множество в паскале: Решение задачи

[slavika]

Здравствуйте! ПОмогите решить задачу на множества. Дан список фамилий с инициалами. Определить, есть ли в списке однофамильцы. Напечатать в алфавитном порядке все буквы, с которых начинаются имена.

[Stilet]

Ввод фамилий кодом покажешь?

[slavika]

Type familii= set of 1..7;
f1=array[0..20] of familii;
const f:array[1..7] of string[10] = ('Иванов'‚'Сидоров','Соколов','Иван ов','Ковалёв','Гусев','Баранов');

[Stilet]

Э-э-э... не понял... Это что за ересь?
Покажи пример из методички. Как вам сенсеи предмет дают?

[ZX Spectrum-128]

Нет. Имелось ввиду ввод фамилий, а не задание их константой.

Поиск однофамильцев я вам написал. Вывод инициалов сами напишете?

[slavika]

в то и дело что препод устно объяснил...а что и как делайте сами

да конечно

[Stilet]

Бред это а не задание:

const f:array[1..7] of string[10] = ('Иванов'‚'Сидоров','Соколов','Иван ов','Ковалёв','Гусев','Баранов'); 
var j,i:integer;
begin
 for i:=1 to 7 do begin
  for j:=i+1 to 7 do if f[i]=f[j] then begin writeln(f[i]); break;end;
 end;
 readln;
end.

Это с потолка вывод повторяющихся.