Процедура вывода матрицы на экран (Паскаль)

[Язуджи]

Программа должна по идее работать верно, НО в конце, в главной программе после вычисление процедур "changeAfterMin(A, N, M, Z);" и "ChangeAfterMin(B, K, L, Z);" , начинают работать процедуры "output(A, N, M);" и "output(B, K, L);" , которые отвечаю за вывод результата после обработки матрицы. Так вот, почему никаких результатов программа не вывод? даже если она и не правильно обрабатывалась и ничего не менялось или менялись другие не нужные значения, программа вывело бы всё какой-никакой результат. В чём проблема?

type
  Arr = Array[1..10, 1..10] of integer;

var
  A, B: Arr;
  N, M, K, L, Z: integer;

P.S. Задание: В каждую из двух матриц вставить заданное число после минимального элемента каждого столбца.

procedure PrintMatr(var C: Arr; p, q: integer);
var
  i, j: integer;
begin
  write('Введите число Z = ');
  read(Z);
  write('Введите количество строк p = ');
  readln(q);
  write('Введите количество cтолбцов q = ');
  readln(p);
  for i := 1 to p do
    for j := 1 to q do
    begin
      C[i, j] := 50 - random(49) + 1; 
    end;
  writeln('Результат :');
  for i := 1 to p do
  begin
    for j := 1 to  q do
    begin
      write(C[i,j]:5, '     ');
    end;
    writeln('  ');
  end;
end;

procedure ChangeAfterMin(C: arr; p, q, z: integer);
var
  i, j, min, minj: integer;
begin
  for i := 1 to p do
  begin
    min := C[i, 1];
    minj := 1;
    for j := 2 to q do
    begin
      if (C[i, j] <= min) then
      begin
        min := C[j, i];
        minj := j;
      end;
    end;
    if (minj <> 1) then 
      C[i, minj + 1] := Z;
  end;
end;

procedure output(var C: Arr; p, q: integer);
var
  i, j: integer;
begin
  for i := 1 to p do 
    for j := 1 to q do 
    begin
      write(C[i, j]:5, '     ');
    end;
    writeln('');  
end;

begin
  writeln('Заполнение матрицы A[N,M]');
  PrintMatr(A, N, M);
  writeln(' ');
  writeln('Заолнение матрицы B[K,L]');
  PrintMatr(B, K, L);
  writeln(' ');
  changeAfterMin(A, N, M, Z);
  writeln('Mатрица A после обработки :');
  output(A, N, M);
  ChangeAfterMin(B, K, L, Z);
  writeln('Матрица В после обработки :');
  output(B, K, L);
end.

P.S. Задание: В каждую из двух матриц вставить заданное число после минимального элемента каждого столбца.

[ZX Spectrum-128]

  writeln('Mатрица A после обработки :');
  output(A, N, M);

N,m чему равны?

[type_Oleg]

Наверное, потому что K и L равны 0.
Как я понял, их значения должно появляться на выходе из PrintMatr.
Не появится, потому что нет волшебного слова var перед p,q в описании PrintMatr.

PS Ага, и по поводу N,M - то же самое.

[Язуджи]

Они равны p и q , как и K и L соответственно

[ZX Spectrum-128]

Не-а, они равны 0.
Потому что предыдущая процедура не возвращает их значения ввиду отсутствия var перед ними в заголовке процедуры.

[type_Oleg]

Поставьте перед p и q var.

Кстати, никаких p и q не существует. Они - только в описании.

[ZX Spectrum-128]

type_Oleg, опередил
Держи +

[Serge_Bliznykov]

замените

procedure PrintMatr(var C: Arr; p, q: integer);

на

procedure PrintMatr(var C: Arr; var p, q: integer);

а тут ничего странного не видите???

  write('Введите количество строк p = ');
  readln(q);
  write('Введите количество cтолбцов q = ');
  readln(p);

[Язуджи]

Так, спасибо, разобрался, теперь выводит. осталось разобраться, почему не вставляется заданное число после минимального элемента в каждом столбце:D

[ViktorR]

Да все по тому же:

procedure ChangeAfterMin(C: arr; p, q, z: integer);
var
  i, j, min, minj: integer;
begin
  for i := 1 to p do
  begin
    min := C[i, 1];
    minj := 1;
    for j := 2 to q do
    begin
      if (C[i, j] <= min) then
      begin
        min := C[j, i];
        minj := j;
      end;
    end;
    if (minj <> 1) then 
      C[i, minj + 1] := Z; {тут присвоение, но в описании ...} 
  end;
end;

Почитайте повнимательнее, как передаются параметры в процедуры и функции. Если запись вида:
dd : real {<имя переменной> : <тип переменной>}
то - передача значения. В этом случае в процедуре/функции будет видно только переданное значение, а изменить это значение нельзя ...;
А вот если
Var dd : real {Var <имя переменной> : <тип переменной>}
то - передача адреса - в этом случае из процедуры или функции можно изменять значение переменной, которая размещяется в сегменте данных;
Ну, в общем, почитайте - это важная часть ...

И еще: не пользуйте

read(<переменная>);  {read(Z) - неправильно}

readln(Z); {правильно}

Процедура read() используется при чтении данных из файла ...



Как-то так, ...