Напишите программу, которая ввод данных в одномерный целочисленный массив исполняет

Const N=12;
var a: array[1..N] of integer;
    avg:real;
    i:byte;
begin
 writeln('Введите массив из ',N, 'частей');
 i:=0; avg:=0;
 while ilt;n do
 begin
  i:=i+1 ;
  read(a[i]);
  avg:=avg+a[i];
 end;
 avg:=avg/n;
 i:=0;
 writeln('Начальный массив');
 repeat
  i:=i+1;
  write(a[i]:5);
 until igt;=n;
 writeln;
 writeln('Отредактированный массив');
 i:=0;
 repeat
  i:=i+1;
  if a[i]lt;avg then a[i]:=3;
  write(a[i]:5);
 until igt;=n;
end.