Напишите программу, которая считывает с клавиатуры n чисел и затем выводит

uses crt;

var
n: integer; Количество чисел
a: array [1..50] of integer; Массив чисел
i: integer; Переменная для прохода по массиву
j: integer; Переменная для прохода по массиву
sum: integer; Сумма
sr: integer; Среднее арифметическое
tmp: integer; Промежная переменная

begin
sum := 0;
sr := 0;
writeln(Введите размер массива);
readln(n);
Цикл ввода массива
for i := 1 to n do
begin
writeln(Введите +i , число);
readln(tmp);
if tmp gt; 0 then
begin
a[i] := tmp;
end
end;
Цикл подсчета суммы и среднего арифметического
for j := 1 to n do
begin
sum := sum + a[j];
sr := sum div n;
end;
writeln(Сумма чисел: +sum);
writeln(Среднее арифметическое +sr);
end.