Pascal/Turbo Pascal - Por qué me da error?

Buenas, pasé un ejercicio a pascal y me quedó así. Pero me da error, 2 para ser más específico.
Si podrían ayudarme en que me equivoco se los agradecería muchísimo, ya que yo no me termino de dar cuenta.


program io(input,output);
uses crt;
var i:integer;
v: array[1..30] of integer;

procedure hola;
begin
for i:=1 to 10 do
begin
readln(v[i]);
if mod(v[10])=0
then
begin
for i:=1 to 5 do
begin
v[î*1]:=0;
end;
end
else
begin
for i:=1 to 5 do
begin
v[(i*2)-1]:=0;
end;
end;
end;
for i:=1 to 10 do
begin
readln(v[i]);
end;
repeat until keypressed;
end.

No sé preocupen ya me di cuenta, tenía muchos errores.