Найдити ошибки в программе

Даны сведения о возрасте студентов V[20]
1)Определить самого молодого и самого страршего из студентов, их порядковый номер
2) Определить средний возраст студентов группы
3) Определить сколько студентов имеют возраст более 18 лет
4)Сформировать из них новый масив VI








const n=20;
var a,b:array[1..n]of integer;
i,max,min,imax,imin,sr,k,ind:integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(18);
write(a[i]:5);
end;
writeln;
max:=a[1]; min:=a[1];
imax:=1; imin:=1; sr:=0;
for i:=2 to n do
begin
sr:=sr+a[i];
if a[i]>max then
begin
max:=a[i];
imax:=i;
end;
if a[i]<min then
begin
min:=a[i];
imin:=i;
end;
end;
writeln('Возраст самого младшего студента: ',max,' см. Его номер: ',imax);
writeln('Возраст самого старшего студента: ',min,' см. Его номер: ',imin);
sr:=trunc(sr/n);
writeln('Средний возраст студентов: ',sr,' см');
k:=0; ind:=1;
for i:=1 to n do
if a[i]>18 then
begin
inc(k);
b[ind]:=a[i];
inc(ind);
end;
writeln(' Студенты,с возростом более 18 лет: ',k);
writeln('Новый массив VI ');
for i:=1 to ind-1 do
write(b[i]:5);
end.

1