Задача на массивы в Delphi!!!

[Volume]

Обработка одномерных массивов.

Задача:
Уменьшить все элементы с четными индексами заданного массива а1,а2,...аn, на величину минимального элемента этого массива.

Я не понимаю как делать.Читала и читала учебники.Не понимаю я.Вот что-то сделала,пыталась.Но ошибку не могу найти.Может вообще что-то неправильно..

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
 a:array[1..10] of integer;
min:integer;
i:integer;
begin
for i := 1 to 10 do
min:=a[1];
for i:=2 to 10 do
    if min>a[i] then min:=a[i];

for i:=1 to 10 do
  if i mod 2=0 then   a[i]:=a[i]-min ;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
И исходный код программы пишется внутри этих тегов, а не после!

Модератор.

[Вадим Мошев]

for i := 1 to 10 do
min:=a[1];

у вас 10 раз выполняется операция присвоить переменной min первый элемент массива.

Уберите ту строку, которая жирная.

Остальное вроде всё правильно... а в чём ошибка-то?

[Volume]

ошибка в том,что экран запуска-проверки не запускается.F9 жму,а он не включается.

[Вадим Мошев]

Попробуйте жать кнопку Run (зелёный треугольник)

[Mad_Cat]

Readln; перед end. Допишите

[phomm]

А ввод массива где ? как-то так :
writeln('vvedite 10 cifr massiva');
for i := 1 to 10 do readln(a[i]);

вставлять после главного begin

[Volume]

все равно экран запуска не запускается.(

var
 a:array[1..10] of integer;
min:integer;
i:integer;
begin
writeln('vvedite 10 cifr massiva');
for i := 1 to 10 do readln(a[i]);

min:=a[1];
for i:=2 to 10 do
    if min>a[i] then min:=a[i];

for i:=1 to 10 do
  if i mod 2=0 then   a[i]:=a[i]-min ;
end.

вот такой код я написала.и не запускается

[Sauber]

program Project9;

{$APPTYPE CONSOLE}

uses
  SysUtils;


var
 a:array[1..10] of integer;
min:integer;
i:integer;
begin
writeln('vvedite 10 cifr massiva');
for i := 1 to 10 do readln(a[i]);

min:=a[1];
for i:=2 to 10 do
    if min>a[i] then min:=a[i];

for i:=1 to 10 do
  if i mod 2=0 then   a[i]:=a[i]-min ;
  for i := 1 to 10 do writeln (a[i]);


  readln;
end.

Возможно так?

[Volume]

все равно не запускается.

[Sauber]

она не может не запускаться... в чем вы кодите?