Язык Паскаль . Создать числовой массив A[1..N] . Значение N вводится с клавиатуры . Все отрицательные элементы устранить , а так же определить среднее арифметическое всех элементов . Результат вывести на экран .

Если что то сделано не так, уточните условие пожалуйста. А то оно неоднозначное.

var A: Array of Integer;    N: Integer;    i: Integer;    sum: Integer;Begin  Randomize;  Write('N = ');  ReadLn(N);  SetLength(A, N + 1);  WriteLn('Массив:');  For i := 1 To N Do  Begin    A[i] := Random(50) - 25;    Write(A[i] + ' ');  End;  WriteLn;  WriteLn('Без отрицательных:');  For i := 1 To N Do  Begin    If A[i] >= 0 Then      Write(A[i] + ' ');  End;  sum := 0;  WriteLn;  WriteLn('Среднее арифметическое:');  For i := 1 To N Do  Begin    sum := sum + A[i];  End;  WriteLn(sum / N);End.