задача - Даны номерные знаки автомашин.Определите,есть ли среди них одинаковые.

[NATKA]

1.Даны номерные знаки автомашин.Определите,есть ли среди них одинаковые.Выведите соответствующее сообщение.
2.Дан массив В1,В2,...В10.Замените Вmax на среднее значение его первых пяти элементов.

заранее благодарю и оч признательна тому кто окажет мне помощь

[VVM]

Первая задача:

procedure TForm1.First;
var
  Arr: array [1..20] of integer;
  I, J: integer;
begin
  Randomize;
  for I := 1 to 20 do
    Arr[i] := Random(900) + 100; // заполняем массив с номерами случайными значениями
  I := 1;
  while I <= 20 do
  begin
    for J := I + 1 to 20 do
      if Arr[i] = Arr[J]  then
        ShowMessage('Есть совпадения!');
    inc(I);
  end;
end;

[VVM]

Вторая:

procedure TForm1.Second;
var
  Arr: array [1..10] of integer;
  I: integer;
  Sred: real;
begin
  Randomize;
  for I := 1 to 10 do
    Arr[i] := Random(900) + 100;
  Sred := 0;
  for I := 1 to 5 do
    Sred := Sred + Arr[i];
  Arr[High(Arr)] := Round(Sred / 5);
end;

[NATKA]

огромное приогромное спасибо)))