Ошибка "выход за границы диапазона"

[Luuun]

Смотрел похожие темы, пытался разобраться, но так и не понял в чем суть данной ошибки. Прога запускается, но при вводе матрицы вручную или рандомом сразу же выдает:
"Ошибка: 6 - выход за границы диапазона изменения индекса 1..5

program Task2;
uses crt;

const maxsize=5;
type matrix=array[1..maxsize,1..maxsize] of integer;
var flag:integer;
a:matrix;

procedure random_input(var matr:matrix);
var i,j,b:integer;
begin
for i:=1 to b do
for j:=1 to b do matr[i,j]:=random(10); //случайный ввод матрицы
end;


procedure manual_input(var matr:matrix);
var i,j,c:integer;
begin
for i:=1 to c do
begin
for j:=1 to c do read(matr[i,j]); //ручной ввод матрицы
writeln;
end;
end;

Сильно хочу понять свою проблему...

[Alex Cones]

1) Нуждаетесь в помощи - читайте правила! Оформляйте код с помощью !
2) Когда код такой длинный ВСЕГДА(!) если хотите его кому-то показать ставьте комментарии! Хотя бы блоки отделяйте и подписывайте, зачем какой.
3) Идите трассировкой и смотрите, к кому обращение.

[eoln]

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

program Task2;
uses crt;
procedure random_input(var matr:matrix);
var i,j,b:integer;
begin
for i:=1 to b do
for j:=1 to b do matr[i,j]:=random(10); //случайный ввод матрицы
end;

Локальная переменная b не определена. Замени b на maxsize. При ручном вводе то же самое. c -> maxsize

[Luuun]

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

Локальная переменная b не определена. Замени b на maxsize. При ручном вводе то же самое. c -> maxsize

Дак изначально у меня все так и было, но возникла проблема в том, что maxsize - глобальная переменная, а моя прога должна использовать локальные/формальные.
У меня есть вариант рабочей программы, в которой используются глобальные переменные, но вот никак не домозгую, как их сделать локальными не нанося вред проге

[eoln]

procedure random_input(var matr:matrix; b: integer);
var i,j:integer;
begin
for i:=1 to b do
for j:=1 to b do matr[i,j]:=random(10); //случайный ввод матрицы
end;

Из тела программы вызывать так: random_input(a, любое_число_от_0_до_maxsize)

var flag:integer;
a:matrix;

надо объявить после процедур

[DeKot]

procedure random_input(var matr:matrix);
var i,j,b:integer;
begin
for i:=1 to b do
for j:=1 to b do ...

procedure manual_input(var matr:matrix);
var i,j,c:integer;
begin
for i:=1 to c do
begin
for j:=1 to c do ...

В обеих процедурах b и c локальные переменные и, следовательно, не инициализированы (начальное значение их неопределенное . В процедурах они не принимают никакого значения.
Вопрос - зачем тогда вообще их применять?
Если верхний предел цикла for изменяется в программе где то в другом месте, то эти переменные должны быть или глобальными или (как в #5) передаваться в качестве параметра.
Смысл разъяснений понятен?

[Luuun]

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

procedure random_input(var matr:matrix);
var i,j,b:integer;
begin
for i:=1 to b do
for j:=1 to b do ...

procedure manual_input(var matr:matrix);
var i,j,c:integer;
begin
for i:=1 to c do
begin
for j:=1 to c do ...

В обеих процедурах b и c локальные переменные и, следовательно, не инициализированы (начальное значение их неопределенное . В процедурах они не принимают никакого значения.
Вопрос - зачем тогда вообще их применять?
Если верхний предел цикла for изменяется в программе где то в другом месте, то эти переменные должны быть или глобальными или (как в #5) передаваться в качестве параметра.
Смысл разъяснений понятен?

Смысл то понятен, но дело в том, что в моей программе должны ис пользоваться не глобальные переменные, а локальные.
Пытаюсь обмозговать #5, но что-то так полностью и не пойму...
Мне нужно после каждой процедуры объявлять переменные?
Растолкуйте пожалуйста!