Мне нужно чтобы вы помогли найти ошибки или недочеты

[dark999]

Дан двумерный массив размером 5 х 6, заполненный случайным образом.

- Заменить максимальный элемент каждой строки на противоположный;
- Вставить после столбцов с максимальными элементами столбец и нулей;
- Удалить среднюю строку;
- Поменять местами средние столбцы

___________________________________ _____

Program ild;
uses crt;
const
  n=5;
  m=6;
var
  a,b,c,d,i:integer;
  z:array[1..n,1..(m+1)]of integer;
begin
  c:=1;
  d:=1;
  randomize;
  for a:=1 to n do
    begin
      for b:=1 to m do
        begin
          z[a,b]:=random(50);
          write(z[a,b]:4);
          if z[a,b]>z[c,d] then
            begin
              c:=a;
              d:=b;
            end;
        end;
      writeln;
    end;
for a:=1 to n do
begin
i:=1;
for b:=1 to m do
if z[a,b]>z[a,i] then i:=b;
z[a,i]:=- z[a,i];
end;
  writeln(chr(13),chr(10),'I:',chr(13),chr(10),'maximum z[',c,',',d,']:=',z[c,d],chr(13),chr(10));
  for a:=1 to n do
    begin
      for b:=m+1 downto d+1 do
        z[a,b]:=z[a,b-1];
      z[a,d+1]:=0;
    end;
  for a:=1 to n do
    begin
      for b:=1 to m+1 do
        write(z[a,b]:4);
      writeln;
    end;
  readln;
  writeln(chr(13),chr(10),'II:',chr(13),chr(10));
end;
readkey;
for a:= 1 to n-1 do
x[a]:= z[a,m div 2];
for a:= 1 to n-1 do
z[a,m div 2]:= z[a,m div 2 +1];
for a:= 1 to n-1 do
z[a,m div 2 + 1]:= x[a];
end;
  for a:=((n div 2)+(n mod 2)) to n-1 do
    for b:=1 to m do
      z[a,b]:=z[a+1,b];
  for a:=1 to n-1 do
    begin
      for b:=1 to m do
        write(z[a,b]:4);
      writeln;
    end;
  readln;
  end.

Мне нужно чтобы вы помогли найти ошибки или недочеты, исправили этот код. Желательно полным кодом. Сам код программы ниже)

[dark999]

Да Это ж вроде не трудно, я не прошу написать код программы, а лишь найти ошибки)

[Alex11223]

Не трудно вам, ибо вы писали этот код. А разбираться в простыне без коментариев с переменными a, b, c, d, x, z, n, m не каждый захочет)

[dark999]

Сообщение от Alex11223

Не трудно вам, ибо вы писали этот код. А разбираться в простыне без коментариев с переменными a, b, c, d, x, z, n, m не каждый захочет)

Ну да так и есть, я просто уже не соображаю, голова кругом идет от этих задач, поэтому прошу помощи)

[MyLastHit]

Первый осмотр выявил:

Program ild;
uses crt;
const
  n=5;
  m=6;
var
  a,b,c,d,i:integer;
  z:array[1..n,1..(m+1)]of integer;
begin
  c:=1;
  d:=1;
  randomize;
  for a:=1 to n do
    begin
      for b:=1 to m do
        begin
          z[a,b]:=random(50);
          write(z[a,b]:4);
          if z[a,b]>z[c,d] then
            begin
              c:=a;
              d:=b;
            end;
        end;
      writeln;
    end;
for a:=1 to n do
begin
i:=1;
for b:=1 to m do
if z[a,b]>z[a,i] then i:=b;
z[a,i]:=- z[a,i];
end;
  writeln(chr(13),chr(10),'I:',chr(13),chr(10),'maximum z[',c,',',d,']:=',z[c,d],chr(13),chr(10));
  for a:=1 to n do
    begin
      for b:=m+1 downto d+1 do
        z[a,b]:=z[a,b-1];
      z[a,d+1]:=0;
    end;
  for a:=1 to n do
    begin
      for b:=1 to m+1 do
        write(z[a,b]:4);
      writeln;
    end;
  readln;
  writeln(chr(13),chr(10),'II:',chr(13),chr(10));
end; // откуда здесь end?
readkey;
for a:= 1 to n-1 do
x[a]:= z[a,m div 2];//не вижу где объявлялась X
for a:= 1 to n-1 do
z[a,m div 2]:= z[a,m div 2 +1];
for a:= 1 to n-1 do
z[a,m div 2 + 1]:= x[a];//аналогично
end; //а здесь end зачем?
  for a:=((n div 2)+(n mod 2)) to n-1 do
    for b:=1 to m do
      z[a,b]:=z[a+1,b];
  for a:=1 to n-1 do
    begin
      for b:=1 to m do
        write(z[a,b]:4);
      writeln; // не вижу смысла в этой строчке. ее нужно после end поставить
    end;
  readln;
  end.

[dark999]

А можешь ошибки исправить если тебе не трудно?)

[dark999]

Ну очень прошу!!!

[MyLastHit]

А можешь ошибки исправить если тебе не трудно?)

Трудно... Это же твой код, я его все-равно не пойму, что и как он делает. Тебе проще. Отдохни и с чистой головой посмотри на него.
Но без тех что я нашел ошибок, вот как то так:

program ild;
uses crt;
const
  n = 5;
  m = 6;
var
  a, b, c, d, i: integer;
  z: array[1..n, 1..(m + 1)] of integer;
  x: array[1..n-1] of integer;
begin
  c := 1;
  d := 1;
  randomize;
  for a := 1 to n do
  begin
    for b := 1 to m do
    begin
      z[a, b] := random(50);
      write(z[a, b]: 4);
      if z[a, b] > z[c, d] then
      begin
        c := a;
        d := b;
      end;
    end;
    writeln;
  end;
  for a := 1 to n do
  begin
    i := 1;
    for b := 1 to m do
      if z[a, b] > z[a, i] then i := b;
    z[a, i] := -z[a, i];
  end;
  writeln(chr(13), chr(10), 'I:', chr(13), chr(10), 'maximum z[', c, ',', d, ']:=', z[c, d], chr(13), chr(10));
  for a := 1 to n do
  begin
    for b := m + 1 downto d + 1 do
      z[a, b] := z[a, b - 1];
    z[a, d + 1] := 0;
  end;
  for a := 1 to n do
  begin
    for b := 1 to m + 1 do
      write(z[a, b]: 4);
    writeln;
  end;
  readln;
  writeln(chr(13), chr(10), 'II:', chr(13), chr(10));
readkey;
for a := 1 to n - 1 do
  x[a] := z[a, m div 2];
for a := 1 to n - 1 do
  z[a, m div 2] := z[a, m div 2 + 1];
for a := 1 to n - 1 do
  z[a, m div 2 + 1] := x[a];
for a := ((n div 2) + (n mod 2)) to n - 1 do
  for b := 1 to m do
    z[a, b] := z[a + 1, b];
for a := 1 to n - 1 do
begin
  for b := 1 to m do
  write(z[a, b]: 4);
  writeln;
end;
readln;
end.

[dark999]

- Вставить после столбцов с максимальными элементами столбец и нулей;
- Удалить среднюю строку;

Работают только эти)

- Заменить максимальный элемент каждой строки на противоположный;
- Поменять местами средние столбцы

Мне бы чтобы вот эти еще заработали!

Спасибо тебе