Задачи на паскале (массивы)

[skript88]

После ввода целочисленного массива:
1) Найти номер позиции первого и последнего нуля;
2)Выделить все числа, заканчивающиеся на 2 одинаковые цифры(выделить цветом);
3)Найти самое часто повторяющееся число

Получилось только вывести массив:

Program Laba1;
uses crt;
var
   a: array [1..500] of integer;
   i: integer;
begin
clrscr;
randomize;
       for i:=1 to 500 do
           begin
                a[i]:=random (200);
                write(' ',a[i]);
           end;
       readkey;
end.

Помогите пожалуйста, буду очень признателен
Замечание модератора: Используйте тег [CODE]

[Вавел из ГМТУ]

Как вариант:

Найти номер позиции первого и последнего нуля;

1. Добавить три переменые в раздел Var.

F : Boolean; // Будет True, если мы нашли не первый ноль.
ZS, ZE : Integer; // Интекс первого и последнего нуля соответсвенно.

2.

F := False;
for i:=1 to 500 do
begin
a[i]:=random (200);
If (F = False) And (A[i] = 0) Then Begin
   F := True;
   ZS := i;
End;
If A[i] = 0 Then ZE := i;
write(a[i], ' ');
end;

Выделить все числа, заканчивающиеся на 2 одинаковые цифры(выделить цветом);

Юзай mod и div. Что касается цвета, то даж не знаю.

Найти самое часто повторяющееся число
Для этого нужно создавать дополнительный массив.. Вроде как.. Покрайней мере с ходу ничего больше не придумать.