Напишите программу, которая организует ввод с клавиатуры одномерного массива целых чисел, преобразует его в соответствии с заданием и выводит его на экран — Pascal(Паскаль)

const Nmax=50; //максимальный размер массива
var a:array[1..Nmax] of integer;
     n,k:integer;
     sr:real;
begin
 writeln('Введите кол-во элементов массива (<',Nmax,'):');
 sr:=0;
 for k:=1 to n do begin
  write('Введите ',k,'-ый элемент массива');
  readln(a[k]);
  sr:=sr+a[k];
 end;
 sr:=sr/n;
 writeln('Исходный массив: ');
 for k:=1 to n do begin
  write(a[k],' ');
  if a[k]<sr then a[k]:=0;
 end;
 writeln;
 writeln('Массив после обработки: ');
 for k:=1 to n do write(a[k],' ');
 writeln;
end.