процедура getmemory

[vadimc]

ПОМОГИТЕ ДОБАBИТЬ ПРОЦЕДУРУ GetMemory.Задание самой программы :дана матрица продублировать строку матрицы содержащую ее максимальный элемент

const
  maxSize=10;
type 
  Tmatrix=array[1..maxSize+1,1..maxSize] of integer;{учитываем новый размер матрицы}
var
  a:Tmatrix;
  i,j,m,n,imax,max:integer;
begin
  repeat
    write('Введите количество строк матрицы, не более ',maxSize,'=');
    readln(n);
  until (n>=1) and (n<=maxSize);
  repeat
    write('Введите количество столбцов матрицы, не более ',maxSize,'=');
    readln(m);
  until (m>=1) and (m<=maxSize);
  randomize;
  writeln('Исходная матрица');
  for i:=1 to n do
    begin
      for j:=1 to m do
        begin
          a[i,j]:=random(100);
          write(a[i,j]:4);
        end;
      writeln;
    end;
  writeln;
  {поиск номера строки с максимумом}
  imax:=1;
  max:=a[imax,1];
  for i:=1 to n do
    for j:=1 to m do
      if a[i,j]>max then
        begin
          max:=a[i,j];
          imax:=i;
        end;
  writeln('Максимум=',max,' находится в строке с номером=',imax);
  {дублирование строки со встреченным первым максимумом матрицы}
  inc(n);
  for i:=n downto imax+1 do
    for j:=1 to m do
      a[i,j]:=a[i-1,j];
  writeln('Полученная матрица');
  for i:=1 to n do
    begin
      for j:=1 to m do
        write(a[i,j]:4);
      writeln;
    end;
  readln;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Базиля]

procedure GetMemory;
begin
end;

const
maxSize=10;
type 
Tmatrix=array[1..maxSize+1,1..maxSize] of integer;{учитываем новый размер матрицы}
var
a:Tmatrix;
i,j,m,n,imax,max:integer;
begin
repeat
write('Введите количество строк матрицы, не более ',maxSize,'=');
readln(n);
until (n>=1) and (n<=maxSize);
repeat
write('Введите количество столбцов матрицы, не более ',maxSize,'=');
readln(m);
until (m>=1) and (m<=maxSize);
randomize;
writeln('Исходная матрица');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
end;
writeln;
end;
writeln;
{поиск номера строки с максимумом}
imax:=1;
max:=a[imax,1];
for i:=1 to n do
for j:=1 to m do
if a[i,j]>max then
begin
max:=a[i,j];
imax:=i;
end;
writeln('Максимум=',max,' находится в строке с номером=',imax);
{дублирование строки со встреченным первым максимумом матрицы}
inc(n);
for i:=n downto imax+1 do
for j:=1 to m do
a[i,j]:=a[i-1,j];
writeln('Полученная матрица');
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:4);
writeln;
end;
readln;
end.

[Serge_Bliznykov]

Сообщение от Базиля

procedure GetMemory;
begin
end;

Жестяк! Не уверен, что автора топика такой код устроит,
но, какой вопрос, такой и ответ!