ПОмогите пожалуйста! срочно надО! решите что сможети =))

[HeLp_pls]

1) найдите сумму диагональных элементов матрицы ,номера строк и столбцов каторых одновременно принадлежат соотвественно непустым множествам s1 и s2 !
2) Дан текст из строчных латинских букв ,за которым следует точка .Напечатать все буквы входящие в текст не менне двух раз
3)Подсчитать количевство различных значищих цифр в десятичной записи числа!
4) По информации из массива , элемнтам которого являются множества продуктов в нескольких магазинах сформировать множество продуктов ,каждый из которых есть только в одном магазине !

[Stilet]

2) Дан текст из строчных латинских букв ,за которым следует точка .Напечатать все буквы входящие в текст не менне двух раз

Навскидку идея примерно такая

 var s:string;i;byte;a:array[ord('a')..ord('z')] of byte;
 begin
  s:='То самое предложение';
  for i:=1 to length(s) do inc(a[ord(s[i])]);
  for i:=ord('a') to ord('z') do 
   if a[i]>=2 then write(a[i]);
 end.

[HeLp_pls]

Ой! Пасиб чувак!