Процедуры ввода и вывода.

[Genzal]

Я только начал разбираться с процедурами. Если не сложно можете сказать почему при вводе значений элементов в подпрограмме они не берутся в подпрограмму для вывода этих элементов в другую. Посмотрите есои не сложно и направите меня в правильное русло.

Const Max=10;
type
 arr=array[1..max] of integer;
var mas: arr;
 n: integer;

procedure InputMass(mas: arr; n: integer);
var i : integer;
begin
write('Размер матрицы от 2 до ',max,' n=');
readln(n);
for i := 1 to n do 
begin
write(i,' элемент > '); read(mas[i]);
end;
end;

procedure OutputMass(mas: arr; n: integer);
var i:integer;
begin
write('Результирующий массив: ');
for i:=1 to n do write(mas[i], ' '); {вывод массива}
end;

begin
  writeln('БЛА');  
  InputMass(mas, n);
  OutputMass(mas, n);
end.

[digitalis]

Вот с такой поправкой будет гораздо лучше :

  procedure InputMass(var mas: arr; var n: integer);

Без var параметры трактуются как входные, и после выхода из Input введенные значения "растворятся", а mas и n останутся не заполненными.

[Genzal]

Спасибо большое, теперь запомнил.

Без var параметры трактуются как входные, и после выхода из Input введенные значения "растворятся", а mas и n останутся не заполненными.

[Genzal]

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

Вот с такой поправкой будет гораздо лучше :

  procedure InputMass(var mas: arr; var n: integer);

Без var параметры трактуются как входные, и после выхода из Input введенные значения "растворятся", а mas и n останутся не заполненными.

Можно ещё один вопрос, я подставил какой-либо изменение массива подпрограммы используются в последовательности которую указана в выводе их. Значения он запоминает и использует и меняет их одновременно?
Можно ли так использовать подпрограммы в программе как у меня получилось или лучше по другому.

Const Max=10;
type
 arr=array[1..max] of integer;
var mas: arr;
 n: integer;

procedure InputMass(var mas: arr; var n: integer);
var i : integer;
begin
write('Размер матрицы от 2 до ',max,' n=');
readln(n);
for i := 1 to n do 
begin
write(i,' элемент > '); read(mas[i]);
end;
end;

procedure OutputMass(mas: arr; n: integer);
var i:integer;
begin
write('Исходный: ');
for i:=1 to n do write(mas[i], ' '); {вывод массива}
end;

Procedure Vstavka(var mas: arr; var n: integer);
Var
  i, j,e,g:integer;
Begin
  for i:=2 to n do
    begin
      e:=Mas[i];
      j:=1;
      while (e<mas[j]) do
        Inc(j);
      for g:=i-1 downto j do
        mas[g+1]:=mas[g];
      mas[j]:=e;
    end;
End;

procedure OutputMass1(mas: arr; n: integer);
var i:integer;
begin
writeln;
write('Обработанный: ');
for i:=1 to n do write(mas[i], ' '); {вывод массива}
end;

begin
  writeln('БЛА');  
  InputMass(mas, n);
  OutputMass(mas, n);
  Vstavka(mas, n);
  OutputMass1(mas, n);
end.

[digitalis]

Ничего не понял - что куда будет вставляться ? Словами...
Вывод массива до и после обработки можно делать одной процедурой, добавив в качестве параметра строку 'Исходный: ' или 'Обработанный: ' или флаг

  if flag=0 then write('Исходный: ') else write('Обработанный: ');

Во Vstavka n не должен быть var - он же в процедуре не изменяется. Хотя не изменяться он не может - от вставки, видимо, получится n+1. Тогда var нужно оставить, и в n занести инкрементнутое значение.