Из n введенных чисел найти сумму квадратов положительных чисел произведения отрицательных и подсчитать нулевые

var n, sum, p: integer;beginsum := 0;p := 1;repeatwrite('Введите число для завершения программы введите 0000): ');readln(n);if n <> 0 then beginif n >= 0 then sum := sum + n;if n < 0 then p := p * n;endelse writeln('ИТОГ');writeln( 'Сумма положительных: ', sum, ' | Произведение отрицательных: ', p);writeln();until n = 0000;end.Вроде так