2-мерный массив на ООП, помогите исправить ошибку

[ul_m]

вот задание:
Заданы 3 матрицы действительных чисел 5х6, 10х8, 8х7. Определить сумму элементов в тех столбцах, которые не содержат отрицательных элементов. Сравнить результаты обработки матриц.

вот мой листинг:

Program pr7;
uses crt;
type matr=array [1..10,1..10] of integer;
ooo = object;
n,m:byte;
a:matr;
procedure Vvod(n,m:byte);
procedure vivod;
function sum_m: integer;
end;

var x,y,z:ooo;


procedure ooo.vvod;
var i,j:byte;
begin
 for i:=1 to n do
  for J;=1 to m do
  a[i,j]:=random(20);
end;


procedure ooo.vivod;
var i,j:byte;
begin
for i:=1 to n do
 begin writeln;
  for j:=1 to m do
  write(a[i,j]:6:0);
 end;
end;


function ooo.sum_m: integer;
var
  i, j: byte;
  Summ, ResSumm: integer;
  IsNegative: boolean;
begin
  ResSumm := 0;

  for j := 1 to n do
  begin
    IsNegative := false;
    Summ := 0;
    i := 0;
    while (i < m) or not IsNegative do
    begin
      if a[i,j] > 0 then
        Summ := Summ + a[i,j]
      else
        IsNegative := true;
      inc(i);
    end;
    if not IsNegative then
      ResSumm := ResSumm + Summ;
  end;
  sum_m := ResSumm;
end;



begin
 clrscr;
x.vvod(5,6);
y.vvod(10,8);
z.vvod(8,7);
 x.vivod;
 y.vivod;
 z.vivod;
writeln;
writeln;
 x.summ;
 y.summ;
 z.summ;
writeln(x.sum_m);
writeln(y.sum_m);
writeln(z.sum_m);
 readln;
end.

но почему-то после

ooo = object;

выбивает 2 ошибку

[maladoy]

http://programmersforum.ru/showthread.php?t=35195
вам сюда!!!

[puporev]

ooo = object; А потому что после object точку с запятой не надо.
Про другие ошибки надо говорить отдельно, в другом месте и с глазу на глаз, как говорил Райкин.

[puporev]

Вот поправил твою программу, работает как ты задумал, нужно только последний пункт добавить(сравнение).

Program pr7;
uses crt;
type matr=array [1..10,1..10] of integer;
ooo = object
a:matr;
procedure Vvod(n,m:byte);
procedure Vivod(n,m:byte);
function sum_m(n,m:byte): integer;
end;

procedure ooo.vvod;
var i,j:byte;
begin
 for i:=1 to n do
  for J:=1 to m do
  a[i,j]:=random(20)-2;
end;

procedure ooo.vivod;
var i,j:byte;
begin
for i:=1 to n do
 begin
  for j:=1 to m do
  write(a[i,j]:4);
  writeln;
 end;
end;

function ooo.sum_m(n,m:byte): integer;
var i, j: byte;
    Summ, ResSumm,k,l: integer;
begin
  ResSumm := 0;
  for j := 1 to m do
  begin
    k:=0;Summ := 0;
    for i:=1 to n do
    if a[i,j]<0 then inc(k);
    if k=0 then
    for l:=1 to n do
    Summ:=Summ+a[l,j];
    ResSumm := ResSumm + Summ;
  end;
  sum_m := ResSumm;
end;

var x,y,z:ooo;
begin
clrscr;
x.vvod(5,6);
y.vvod(10,8);
z.vvod(8,7);
writeln('Matrica X:');
x.vivod(5,6);
writeln('Summa v stolbcah bez otricatelnyh elementov=',x.sum_m(5,6));
readln;
writeln('Matrica Y:');
y.vivod(10,8);
writeln('Summa v stolbcah bez otricatelnyh elementov=',y.sum_m(10,8));
readln;
writeln('Matrica Z:');
z.vivod(8,7);
writeln('Summa v stolbcah bez otricatelnyh elementov=',z.sum_m(8,7));
readln
end.