Anderson lucas

Criar um programa usando vetores que tenha como entrada nome(quantos quiser) e idade(a msma quantidade de nomes) no final mostrar a media das idades,a maior e a menor idade.Bom fiz tudo certinho mais na hora de rodar da erro da uma luz ai q eu n to conseguindo identificar onde é.No delphi ta disendo incompatible types mas a(s) variável(is)(Vetor)sao iguais.

var
nome:array[1..3]of string;
idade:array[1..3]of integer;
i:integer;
im:real;
begin
for i:=1 to 3 do
begin
writeln('escreva o nome');
readln(nome[i]);
writeln('escreva a idade');
readln(idade[i]);
end;
im:=(idade[1]+idade[2]+idade[3])/3;
writeln(im:2:2);
if idade[1]<idade[2] and idade[1]<idade[3]then
begin
writeln('a menor idade é:',idade[1]);
end
else if idade[2]<idade[1] and idade[2]<idade[3]then
begin
writeln('a menor idade é:',idade[2]);
end
else
begin
writeln('a menor idade é:',idade[3]);
end;
if idade[1]>idade[2] and idade[1]>idade[3]then
begin
writeln('a maior idade é:',idade[1]);
end
else if idade[2]>idade[1] and idade[2]>idade[3]then
begin
writeln('a maior idade é:',idade[2]);
end
else
begin
writeln('a maior idade é:',idade[3]);
end;
readln;
end.

ta dando erro nas linhas
if idade[1]<idade[2] and idade[1]<idade[3]then
(incompatible types)
else if idade[2]<idade[1] and idade[2]<idade[3]then
(incompatible types)
if idade[1]>idade[2] and idade[1]>idade[3]then
(incompatible types)
else if idade[2]>idade[1] and idade[2]>idade[3]then
(incompatible types)