Извените за повтор !!!

[Killdgedan]

Извените пожалуйста что повторяюсь, просто проблемма из темы подкоректируйте программу пожалуйста не была решена !!! поэтому я её дублирую ввиду срочности :
Люди, мне к завтра надо принести программу а она не доделана, надо чтобы она считала сумму положительных элементов и количество их не в строках а в столбцах и вывела их в столбце справа!!! ПОМОГИТЕ ПОЖАЛУЙСТА !!!


Program Massiv;
Uses crt;
Var a:array[1..10,1..10] of integer;
x,y:array[1..10] of integer;
i,j,n,m,s,l:integer;
error:integer;
label l1,l2;
Begin
Clrscr;
textcolor(yellow); {заставка}
gotoxy(18,4); writeln('Вашему вниманию представляется программа,');
gotoxy(24,5); writeln('которая считает количество и сумму');
gotoxy(19,6); writeln('положительных элементов');
gotoxy(16,7); writeln('в каждом столбце введенной матрицы.');
gotoxy(35,9); writeln('Внимание!');
gotoxy(17,10); writeln('Размер матрицы должен быть не более 10*10.');
gotoxy(19,11); writeln('Элементами матрицы должны являться');
gotoxy(18,12); writeln('целые числа из интервала (-100..100)');
gotoxy(44,15); writeln('Программу выполнил');
gotoxy(44,16); writeln('студент группы ЭИЭ-112');
gotoxy(44,17); writeln('Андрюшин И.Ю.');
gotoxy(17,25); write('Нажмите любую клавишу для продолжения...');
readkey;
l1:
clrscr;
repeat
{ввод строк}
write('Введите количество строк: ');
{$i-}
readln(n);
error:=ioresult;
{$i+}
if (n>10) or (n<2) or (error<>0) then writeln('Неверно задано количество строк. Повторите ввод:');
until (n<=10) and (n>=2) and (error=0);

repeat {ввод столбцов}
write('Введите количество столбцов: ');
{$i-}
readln(m);
error:=ioresult;
{$i+}
if (m>10) or (m<2) or (error<>0) then writeln('Неверно задано количество строк. Повторите ввод:');
until (m<=10) and (m>=2) and (error=0);
{ввод элементов массива}
for i:=1 to n do
for j:=1 to m do
repeat
write('Введите A[',i,',',j,']: ');
{$i-}
readln(a[i,j]);
error:=ioresult;
{$i+}
if (a[i,j]>=100) or (a[i,j]<=-100) or (error<>0) then writeln('Неверно задан элемент. Повторите ввод:');
until (a[i,j]>-100) and (a[i,j]<100) and (error=0);
Clrscr;
Writeln(‘Матрица’);
for i:= 1 to n do begin
s:=0;
l:=0;
for j:=1 to m do begin
gotoxy(j*5-1,wherey);
write(a[i,j],' ');
if a[i,j]>0 then begin
s:=s+a[i,j];
l:=l+1;
end;
end;
x[i]:=s;
y[i]:=l;
gotoxy(m*5+8,wherey);
Writel(‘сумма’);
gotoxy(m*5+10,wherey);
write(x[i]);
gotoxy(m*5+14,wherey);
Write(‘Кол-во’);
gotoxy(m*5+16,wherey);
writeln(y[i]);
end;
gotoxy(15,25); write('Хотите ли вы ввести новую матрицу? (Y-Да, N-Нет)');
{запрос на повтор}
l2:
case readkey of
#89: goto l1;
#121: goto l1;
#78: exit;
#110: exit;
end;
goto l2;
end.

[mihali4]

2.При создании новых тем запрещено:

2.1 Создавать темы с названиями, которые не отражают смысл сообщения, пример - "Help!!!", "Памагите", "тону, спасите!", "а что это вы тут делаете?" и т.д.
Администратор и Модераторы имеют право переименовать закрыть и удалить тему, при этом могут поставить штраф - "№1 Флуд".
2.2 Создавать одинаковые темы в разделах.
Администратор и Модераторы могут поставить штраф "№2 Кросс постинг".