Задача на Паскаль

[n1ce > Kuzia]

Если количество положительных элементов в матрице больше количества отрицательных элементов , то у всех отрицательных элементов поменять знак на положительный

[pomoshnic]

uses crt;
var a:array[1..10,1..10]of integer;
i,j,t:integer;
begin
clrscr;
textcolor(green);
randomize;
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
a[i,j]:=random(100)-50;
write(a[i,j]:4);
end;
writeln;
end;
for i:=1 to 10 do
for j:=1 to 10 do
if a[i,j]>0 then inc(t) else dec(t);
if t>0 then begin
for i:=1 to 10 do
for j:=1 to 10 do
if a[i,j]<0 then a[i,j]:=a[i,j]*(-1);
end;
writeln('------');
 for i:=1 to 10 do
begin
for j:=1 to 10 do
write(a[i,j]:4);
writeln;
end;
readln
end.

[capta1n]

program mass1;
const
 m = 3;
 n = 4;
var
 A : array [1..m,1..n] of integer;
 i,k : byte;
 count1, count2 : word;
begin

  Randomize;
  writeln ('Vash massiv: ');
  for i:=1 to m do
  begin
    for k:=1 to n do
    begin
      A[i,k]:=random(10)-2;
      write (A[i,k],'|')
    end;
    writeln
  end;
  writeln;

  count1:=0;
  count2:=0;
  for i:=1 to m do
   for k:=1 to n do
    if A[i,k]>0 then inc(count1)
    else if A[i,k]<0 then inc(count2);

  if count1>count2 then
   for i:=1 to m do
    for k:=1 to n do
     if a[i,k]<0 then a[i,k]:=abs(a[i,k]);

  for i:=1 to m do
  begin
    for k:=1 to n do write (A[i,k],'|');
    writeln
  end;

  readln;

end.

[n1ce > Kuzia]

спс парни :D