Двумерные массивы!

[Алексей1994]

Здравствуйте уважаемые программисты. Не сочтите за наглость, обратится вам за помощью. Вот такое задание. Не могу написать текст программы. Вот задача: Дан двумерный массив. Найти номера всех максимальных элементов. Спасибо за внимание!

const M_max=100;
type TMyArray=Array [1..M_max] of Integer;
var A:TMyArray;
n, m, t: Integer;
procedure Zapolnenie(var a:TMyArray);
var i, j:byte;
result: integer;
begin
For i:=1 to n do
For j:=1 to m do
a[i, j]:=random(20)-10;
end;
Procedure Poisk( var a:TMyArray);
var i,j: byte;
max1:integer;
begin
Writeln ('введите количество строк и столбцов матрицы');
Readln (n,m);
for i:=1 to n do begin
max1:=a[i, 1];
for j:=2 to m do
if a[i, j]>max1 then begin max1:=a[i, j];
end;
writeln('максимальный элемент в ' , i, '- й строке'  max1);
end;
Procedure Vivod ( var a:TMyArray);
begin
for i:=1 to n do
begin
for j:=1 to m do  write(a[i,j], '  ');
writeln;
end;
end;
begin
Zapolnenie(a);
Poisk(a);
Vivod(a);
end.

[ZX Spectrum-128]

Исправьте, пожалуйста, ваше сообщение, заключив программу в тэги сode. Читать невозможно.

[Stilet]

const M_max=100;
type TMyArray=Array [1..M_max] of Integer;
var A:TMyArray;
n, m,maxx, t: Integer;

procedure Zapolnenie(var a:TMyArray);
var i, j:byte;
result: integer;
begin
For i:=1 to n do
For j:=1 to m do begin
a[i, j]:=random(20)-10;
if ((i=1)and(j=1)) or (a[i,j]>maxx) then maxx:=a[i,j];
end;
end;

Procedure Poisk( var a:TMyArray);
var i,j: byte;
begin
for i:=1 to n do begin
 for j:=1 to m do
  if a[i, j]=maxx then  write(j:5) else write('     ');
 writeln;
end;
end;

Procedure Vivod ( var a:TMyArray);
begin
for i:=1 to n do
begin
for j:=1 to m do  write(a[i,j], '  ');
writeln;
end;
end;

begin
Zapolnenie(a);
Vivod(a);
Poisk(a);
readln;
end.

Годится?

[Алексей1994]

Исправил! Так можно прочитать думаю, хоть и корява написано.

[Алексей1994]

А что означает массив имеет другое количество размерности? Выдаёт когда запускаю. Конечно пойдёт. Спасибо огромное за помощь!

[ZX Spectrum-128]

Массив то одномерным описан, а работаете (пытаетесь) как с двумерным.

type TMyArray=Array [1..M_max,1..M_max] of Integer;

Надо исправить.

[Алексей1994]

Вот так?
const M_max=100;
type TMyArray=Array [1..M_max,1..M_max] of Integer;
var A:TMyArray;
n, m,maxx,i,j,t: Integer;
procedure Zapolnenie(var a:TMyArray);
var i, j:byte;
result: integer;
begin
For i:=1 to n do
For j:=1 to m do begin
a[i, j]:=random(20)-10;
if ((i=1)and(j=1)) or (a[i,j]>maxx) then maxx:=a[i,j];
end;
end;
Procedure Poisk( var a:TMyArray);
var i,j: byte;
begin
for i:=1 to n do begin
for j:=1 to m do
if a[i, j]=maxx then write(j:5) else write(' ');
writeln;
end;
end;

Procedure Vivod ( var a:TMyArray);
begin
for i:=1 to n do
begin
for j:=1 to m do write(a[i,j], ' ');
writeln;
end;
end;

begin
Zapolnenie(a);
Vivod(a);
Poisk(a);
readln;
end.
Только не совсем пойму как работает. Какое число вводит, такое и выводит. Но внизу пишет номер строки и столбца.

[ZX Spectrum-128]

if a[i, j]=maxx then write('Строка N ',i,' столбец N ',j)
 else 
write(' ');

А так?
Ааааа, дошло
N и m ничему не равны, присвойте им значения до процедуры заполнения.