Что не так? (сравнить что больше сумма положительных или произведение отрицательных)

program ee;

var n,i,kolp,kolo: integer;

sum,po,a: real;

begin

writeln ('сколько чисел вы будете вводить? ','');

readln (n);

sum: =0;

po: =1;

kolp: =0;

kolo: =0;

for i: =1 to n do

begin

writeln ('введите число,нажмите enter');

readln(a);

if a< 0 then begin inc(kolo);

po: =po*a; end;

if a> 0 then begin inc(kolp);

sum: =sum+a; end;

if a=0 then continue;

end;

if (sum=1) and (kolo> =1) then writeln ('произведение отрицательных') else

if (sum=po) and (kolp> =1) and (kolo> =1) then writeln ('произведение отрицательных равно сумме положительных')else

if (kolp=0) and (kolo=0) then writeln ('кажется, что вы ввели все нули')else

if (kolp=0) or (kolo=0) and (sum=0) or (po=1) then writeln ('нельзя совершить подсчет,нужно ввести ак миниум 2 положительных и два отрицательных числа');

end.

Интернет – одно из самых удивительных изобретений 20-го века. Он дает безграничные возможности в отношении различных коммуникаций, получения и хранения нужной информации, направлении мультимедиа. Отношение к нему различных слоев населения неоднозначно, содержит даже диаметрально противоположные позиции, но огромное значение его в жизни современного человека не будет оспариваться никем.

Эта слайдовая презентация является результатом ученического исследования на тему влияния интернета на жизнь человека и на все общество в целом. На ее слайдах рассматриваются вопросы:

- Что же такое интернет,

- Использование интернета в жизни людей,

- Как интернет влияет на людей,

- Интернет для ребенка,

- Можем ли мы прожить без интернета,

- Интернет в отдельном школьном классе,

- Личное отношение автора к интернету.

А)
var    s:string;    mas:array ['a'..'z'] of longint;{индексы элементов соответствуют латинице}    c:char;    i:longint; begin      read(s);      for c:='a' to 'z' do{заполнение нулями элементов массива, для запоминания количества элементов в латинице}          mas[c]:=0;      for i:=1 to ord(s[0]) do{пробегаем по всей строке ord(s[0]) это количесвто элементов в строке (только паскаль)}          mas[s[i]]:=mas[s[i]]+1;      for c:='a' to 'z' do{пробегаем по массиву значений и выводим только неповторяющиеся}          if(mas[c]=1) then                       writeln(c); end.