Не могу всё никак не могу эту лабораторку сдать помогите плиз

[Dimon.ru]

Утроить все чётные числа целочисленной последовательности,принадлежащие некоторому множеству,задаваемому с клавиатуры

[Stilet]

Наработки есть?

[Dimon.ru]

Пример...



Type
Tvector=Array[1..40] of integer;
Var
Vector:TVector;
Num,NumBeg,I,J:Byte;
begin
Writeln('Введите не более 20 целых чисел');
Writeln('Конец ввода по Enter');
Num:=0; {текущее количество элементов в массиве}
While not EOLN do
begin
Inc(Num);
Read(Vector[Num]);
end;
Readln;
Numbeg:=Num; {запомнить исходное число элементов}
I:=0; {I- индекс проверяемого элемента массива}
Repeat
Inc(I);
If Vector[I]<0 {если 1-й элемент- отрицательное число,}
then {то выполнить действие по вставке 0}
begin
For J:=Num downto I+1 do {сдвинуть элементы с}
Vector[J+1]:=Vector[J]; {последнего до 1-го вправо}
Vector[I+1]:=0; {вставить на I+1-е место 0}
Inc(Num); {увеличить количество элементов массива}
end;
Until I=Num; {закончить,если проверены все элементы}
{печать результата}
If NumBeg <>Num
then
begin
writeln('Массив после вставки',Num-NumBeg,'нулей');
For I:=1 to Num do
Write(Vector[I],' ');
writeln;
end
else
Writeln('отрицательных чисел нет.массив не изменен');
readln
End.