Модуль с процедурами (Паскаль)

[логарифм]

1. Подсчитать сумму элементов в данном прямоугольном массиве (размерность которого задается с клавиатуры), а элементами которого являются все целые числа.
2. Найти максимальный элемент в каждой строке и записать их в новый массив.
Оба задания нужно сделать через процедуры и включить в модуль, дабы получилась одна программа.

program peacedeath;
interface
type
MyArray=array[1..10,1..15] of integer;
Procedure InsertMas1(Var X : MyArray; n, m: integer);
Procedure PrintMas(X : MyArray; n, m: integer);
Procedure Summa(A : MyArray; n, m: integer; Var S: real);
Procedure Maximum(X : MyArray; n, m : integer; Var Max, Maxi : integer);


implementation

Procedure InsertMas1(Var X : MyArray; n, m: integer);
var
  i,j:integer;
begin
  writeln('x:');
  readln(x);
  writeln('y:');
  readln(y);
     for i:=1 to x do begin
       for j:=1 to y do begin
readln(a[i ,j]);
 end;
end;
end;

Procedure PrintMas(X : MyArray; n, m: integer);
Var
  i, j : integer;
Begin
  for i := 1 to n do 
    begin
      for j := 1 to m do
        write(X[i, j]:5); 
      writeln; 
    end;
End;

Procedure Summa(A : MyArray; n, m: integer; Var S: real);
Var
  i, j : integer;

Begin
  S:= 0;
  for i := 1 to n do
    for j := 1 to m do
      S := S+A[i,j];
End;

Procedure Maximum(X : MyArray; n, m : integer; Var Max, Maxi : integer);
Var
  i: integer;
Begin
  Max := X[1]; 
  Maxi := 1; 
    for i := 1 to n do
        if X[i] > Max 
          then
            begin
              Max := X[i];
              Maxi := i; 
           end;
End;
begin
end.

From Stilet: Неужели так трудно пост оформить читабельно?

Ошибка получается : 12.pas(2,10) Fatal: Syntax error, "BEGIN" expected but "INTERFACE" found
12.pas(0) Fatal: Compilation aborted
Не понимаю, в чем причина( все же вроде нормально, но вот еще - может стоит сделать еще одну процедуру вывода?

[RUSt88]

интерфейс удалите

удаляйте имплементейшн тоже, да и по коду у вас много ошибок

for i:=1 to x do begin

что это значит? как можно в цикл воткнуть массив

readln(x);

как можно прочитать строку в массив интегер

[логарифм]

program peacedeath;

type
MyArray=array[1..100,1..100] of integer;
Procedure InsertMas1(Var X : MyArray; n, m: integer);
Procedure PrintMas(X : MyArray; n, m: integer);
Procedure Summa(A : MyArray; n, m: integer; Var S: real);
Procedure Maximum(X : MyArray; n, m : integer; Var Max, Maxi : integer);

Procedure InsertMas1(Var X : MyArray; n, m: integer);
Var
  i, j : integer;
Begin
  Randomize;
  for i := 1 to n do
    for j := 1 to m do
      X[i, j]:= Random(50);
End;

Procedure PrintMas(X : MyArray; n, m: integer);
Var
  i, j : integer;
Begin
  for i := 1 to n do
    begin
      for j := 1 to m do
        write(X[i, j]:5);
      writeln;
    end;
End;

Procedure Summa(A : MyArray; n, m: integer; Var S: real);
Var
  i, j : integer;

Begin
  S:= 0;
  for i := 1 to n do
    for j := 1 to m do
      S := S+A[i,j];
End;

Procedure Maximum(X : MyArray; n, m : integer; Var Max, Maxi : integer);
Var
  i: integer;
Begin
  Max := X[1];
  Maxi := 1;
    for i := 1 to n do
        if X[i] > Max
          then
            begin
              Max := X[i];
              Maxi := i;
           end;
End;
begin
end.

а если просто авто сделать рандомом, тем не менее ошибок куча, и понимаю уже очень плохо

[RUSt88]

peacedeath

оригинальное название, поржал :DD

[логарифм]

ну название соответствующее)

[RUSt88]

тут переписывать уеву тучу, вам надо основы подучить

MyArray=array[1..100,1..100] of integer;

это у вас матрица, а вы пчму-то рассматриваете его как одномерный массив

Max := X[1];

[логарифм]

было бы очень нежелательно много времени терять

[RUSt88]

не хочется тратить время - могу помочь вам, пишите в асю

[логарифм]

но значит нужно проставить там координаты еще и столбцов, так? У меня нет аськи)

хотя максимума неправвильный поиск