одномерные массивы. (pascal)

[Диляра - новичок]

1. Найти сумму элементов больших данного числа а. а вводится с клавиатуры.
2. Найти количество отрицательных элементов массива.
3. Заменить все четные элементы на их квадраты, а нечетные удвоить.
Заранее большое спасибо.

[Stilet]

Без проблем - покажи как вводишь массив.

[Диляра - новичок]

я попробовала решить первые две задачи, но у меня паскаль не запускается. Посмотрите, правильно или нет?
1)

Program_1;
uses;
var;
a:array[1...100] of unteger;
a,i,n,s:integer;
begin
writeln('vvedite chislo')
readln(n);
randomize;
s:=0;
for i:=1 to n do if m[i]>a then s:=s+m[i]
writeln('s=,'s)
readln;
end.

2)

 Program_2;
uses;
var i:integer;
Begin
k:=0;
for i;=1 to n do
if m[i]<0 then k=k+2i
writeln('k=,'k)
end.

c третьим заданием справиться не могу.

[Stilet]

Жестоко ты препода глушишь таким "низачотом"...
представляю какая ему морока если у него в классе вас 20 с такими решениями придет...

var
 a:array[1...100] of integer;
 a,i,n,s,k:integer;
begin
 writeln('vvedite chislo');readln(n); 
 writeln('vvedite chislo a');readln(a);
 randomize;
 s:=0;k:=0;
 for i:=1 to n do begin
  a[i]:=random(100);
  if a[i]<a then s:=s+a[i] {это для первой задачи}
  if a[i]<0 then inc(k);     {Это для второй}
  {Это для третьей}
  if (a[i] mod 2)=0 then a[i]:=a[i]*a[i] else a[i]:=a[i]+a[i];
  write(a[i]:5);
 end;writeln;
 writeln('s=,',s); 
 writeln('Кол-во отрицательных=,',k)
 readln;
end.

P.S. Если ты учищся на программиста - задумайся, а стоит ли?

[Диляра - новичок]

Спасибо большое. Я не учусь на программиста. Я учусь в школе. Просто меня не было кода эти темы проходили. А мы учимся не по учебнику. Поэтому ничего не получается.
Еще раз большое спасибо*

[Диляра - новичок]

и еще вопрос. В начале программы нужно писать program и uses?

[alex_fcsm]

Program необязательно, а uses если используешь внешние модули.

[Диляра - новичок]

спасибо вам большое. Вы мне очень помогли.