Возведение в квадрат

[Polarbear]

У меня проблема, только не смейтесь, с возведением в квадрат. Мне задали идз по информатике в паскале, в нем несколько заданий и одно из них все отрицательные члены массива возвести в квадрат, из положительных извлечь корень, а к равным нулю прибавить единицу.И вроде все работает, но то число, которое должно было возвестись в квадрат просто меняет знак.Например, -2 в квадрате становится не четверкой, а двойкой.Я выложил всю программу, т.к не знаю, где проблема.Помогите пожалуйста.

Program pr3;
uses crt;
var m:array[1..7] of real; v,i:integer; s,min,max:real;
begin
     clrscr;
     writeln('Vvod kolichestva elementov');
     read(v);
     for i:=1 to v do
     begin
          writeln('Vvod elementov massiva');
          read(m[i]);
     end;
     s:=0;
     for i:=1 to v do
     s:=s+m[i];
     writeln('Summa vsex elementov ravna', s);
     max:=m[1];
     for i:=1 to v do
     if m[i]>max then max:=m[i];
     writeln('max=', max);
     min:=m[1];
     for i:=1 to v do
     if m[i]<min then min:=m[i];
     writeln('min=', min);
     for i:=1 to v do
     writeln('Vvedennii element massiva', m[i]);
     for i:=1 to v do
     begin
     if m[i]<0 then m[i]:=sqr(m[i]);
     if m[i]>0 then m[i]:=sqrt(m[i]);
     if m[i]=0 then m[i]:=m[i]+1;
     writeln('m[i]=', m[i]);
     end;
     end.

[IT-man]

 if m[i]<0 then m[i]:=sqr(m[i]);
     if m[i]>0 then m[i]:=sqrt(m[i]);
     if m[i]=0 then m[i]:=m[i]+1;

исправь на

if m[i]<0 then m[i]:=sqr(m[i]) else
     if m[i]>0 then m[i]:=sqrt(m[i]) else
      m[i]:=m[i]+1;

[Polarbear]

Спасибо большое, а то я в этом не шибко разбираюсь =)