Помогите пожалуйста.Срочно нужно
Введите с клавиатуры три числа:A,B,C. ЕслиA>B>C>0,то замените все числа их квадратами и выведите результаты на экран.Если они отрицательны и не равны между собой, то каждое число замените наибольшим из них и выведите результаты.Иначе,найдите и выведите их сумму.
ПАСКАЛЬ

спасибо большое

Var a,b,c,m : integer;Begin  Readln(a,b,c);  If (a>b) and (b>c) and (c>0) then  Begin   a:=a*a; b:=b*b; c:=c*c;  end else     If (a<0) and (b<0) and (c<0) and (a<>b) and (a<>c) and (b<>c) then    Begin  m:=a;  If b>m then m:=b;  If c>m then m:=c;  a:=m; b:=m; c:=m;    end else    Begin      Writeln('Сумма: ',a+b+c);      halt(0);    end;  Writeln('A = ',a,'    B =',b,'  C = ',c);end.