Проблема с решением задачи (Paskal)

[goGAS]

Помогите пжл решить одну из задач ( ну или обе ) :
1 Задача
Дано натуральное число X. Определить имеюстся ли в записи числа 2 одинаковые цифры. (нельзя использовать тип переменной String)

2 Задача
Дана строка символов. Сформировать строку: записав слова больше среднего по длине.

Заранее спс.

[пауэрлифтинг]

1 Задача

var x: integer; s: set of byte; q: byte; 
begin
s:=[];
writeln('vvedi X');
readln(x);
q:=x mod 10;
x:=x div 10;
while (x<>0) and not (q in s) do
begin
s:=s+[q];
q:=x mod 10;
x:=x div 10;
end;
writeln(q in s);
readln
end.

[пауэрлифтинг]

со 2 задачей не понял че надо сделать ваще

[goGAS]

Cпс конешн)
Ну со 2 как я понял, там нужно ввести с клавиатуры предложение, и вывести те слова, которые по длине больше какого-то среднего слова, тут наверн с вычислением среднего арифметического)
1ая задача такая замудренная)

[пауэрлифтинг]

2 Задача:

var s: string;  sr,i,t,k: byte; ms: array[1..100] of string;
begin
writeln('VVEDI Stroky');
readln(s);
i:=1;
k:=0;
sr:=0;

while length(s)>i do
begin
while s[i]=' ' do inc(i);
t:=i;
repeat
inc(i);
until (s[i]=' ') or (i>length(s));

inc(k);
ms[k]:=copy(s,t,i-t);
sr:=sr+i-t;
end;
sr:=sr div k;
for i:=1 to k do
if length(ms[i])>sr then write(ms[i],' ');
end.

[goGAS]

Большое спс тебе) выручил

[пауэрлифтинг]

можно даже несколько пробелов вводить

[goGAS]

Паур смотри тут дана задача:
Найти кол-во и сумму элементов числового массива от 3 до 7, и все четные элементы заменить нулевыми

Найти сумму и кол-во я сделал, а как сделать что все четные елементы заменились 0 ?

[IT-man]

if a[i] mod 2 =0 then a[i]:=0;

[goGAS]

Мм неправильно сформулировал вопрос насчет замены элементов...
У меня дан числовой массив из отрезка от 3 до 7, нужно заменить все четные элементы на 0...
У меня тоже получилось вот так
begin
for i:=3 to 7 do
if a[i] mod 2=0 then a[i]:=0
end;

Только вот не получается это вывести...
Если только писать
writeln(a[i]);
Или как по другому, подскажите)