ребят можетет перевести ??

[qasw]

вот так идёт но тока косяк небольой


program lsm ;
var
i, countMinus,countPlus: integer;//îáüÿâëÿåì ïåðåìåííûå
ar: array[1..10] of real;//ìàññèâ òèïà real

begin
countPlus:=0;//ñ÷¸ò÷èê ïîëîæèòåëüíûõ
countMinus:=0;//ñ÷¸ò÷èê îòðèöàòåëüíûõ

begin
writeln('vvedi mas ');
for i:=1 to 10 do
//ïîäñ÷èòàåì êîë-âî îòðèö è ïîë.
for i := 1 to 10 do//öèêë ïî ýëåìåíòàì ìàññèâà
begin
if ar[i] > 0 then countPlus := countPlus +1;//åñëè ýëåìåíò ïîëîæèòåëüíûé óâåëè÷èâàåì ñ÷¸ò÷èê íà +1
if ar[i] < 0 then countMinus:= countMinus+1;//åñëè ýëåìåíò îòðèöàòåëüíûé óâåëè÷èâàåì ñ÷¸ò÷èê íà +1
end;

//åñëè îòðèö. áîëüøå, òî ìåíÿåì çíàê ýëåìåíòîâ ìàññèâà
if countMinus > countPlus then
for i := 1to 10 do//öèêë ïî ýëåìåíòàì ìàññèâà
ar[i] := ar[i] * (-1);//óìíîæåíèå íà (-1) ïðèâîäèò ê èçìåíåíèþ çíàêîâ âñåõ ýëåìåíòîâ ìàññèâà

end;
writeln('mas im vid ');
writeln
end.

[NSvirus]

uses crt;
var
i, countMinus,countPlus: integer;
ar: array[1..10] of integer;
begin
 clrscr;
randomize;
for i := 1 to 9 do begin
   ar[i] := random(100)-50;
   if ar[i] > 0 then inc(countPlus)
   if ar[i] < 0 then inc(countMinus);
   write(ar[i],', ');
  end;
  writeln;writeln;
if countMinus > countPlus then
for i := 1 to 9 do begin
  ar[i] := -ar[i] ;
  write(ar[i],', ');
  end;
readln;
end.