Нужна помощь c программированием.

uses crt;
var
a:array[1..6,1..8]of integer;

i,j,û:integer;
begin
clrscr;
s:=0;
for i:=1 to 6 do begin
for j:=1 to 8 do begin
write('ввести а [',i,',',j,'] --> ');
readln(a[i,j]);
if a[i,j]>0 then s:=s+a[i,j];
end;
writeln;
end;
writeln('исходная матрица ');
for i:=1 to 6 do begin
for j:=1 to 8 do
write(a[i,j]:3);
writeln;
end;
write(s);
writeln(' конец программы ');
readln;
end.

{Cори, паскаля под рукой нет. }

#include "<"iostream">" /*Здесь без кавычек, я поставил потому, что маил может стрелочки съесть. */
using namespace std;

int B[6][8], sum = 0;

int main()
{
/**/for(int i = 0; i < 6; i++)
/* */for(int j = 0; j < 8; j++)
/* */{
/* */cin >> B[i][j];//Вводим матрицу
/* */if(B[i][j] > 0) sum += B[i][j];//Считаем сумму положительных элементов.
/* */}
/**/cout << "Sum = " << sum << ";\nEnd of the program.";
/**/return 0;
}