Является ли глобальным параметром

[spindul]

Буквально на днях возник спор, является ли тут переменная c1 глобальным параметром, если да, то как это корректно исправить?

Type massiv = array[1..3,1..3] of integer;
var
  a: massiv = ((1,1,1),(0,0,0),(1,1,1));
  b:massiv=((2,2,2),(2,2,0),(3,3,3));
  c1: massiv;

procedure summ_a(c:massiv);
var
   i,j:integer;
begin
  For i:=1 to 3 do
  begin
    For j:=1 to 3 do
    begin
      c[i,j]:=0;
      c[i,j]:=b[i,j]+a[i,j];
      write(c[i,j]:3,' ');
    end;
    writeln;
  end
end;
BEGIN
  Writeln('Summa A+B:');
  summ_a(c1);
End.

[Базиля]

Ты немного запутался просто.
Переменные головной части программы объявляются в разделе объявления глобальных переменных.
Т.е. это глобальная переменная.

Если тебе легче станет, можешь так описать

Type massiv = array[1..3,1..3] of integer;
var
  a: massiv = ((1,1,1),(0,0,0),(1,1,1));
  b:massiv=((2,2,2),(2,2,0),(3,3,3));

procedure summ_a(c:massiv);
var
   i,j:integer;
begin
  For i:=1 to 3 do
  begin
    For j:=1 to 3 do
    begin
      c[i,j]:=0;
      c[i,j]:=b[i,j]+a[i,j];
      write(c[i,j]:3,' ');
    end;
    writeln;
  end
end;

var   c1: massiv;
BEGIN
  Writeln('Summa A+B:');
  summ_a(c1);
End.

[spindul]

как тогда сделать программу без глобальных параметров?

[Stilet]

А то прочитай внимательно что Базиля написал - и поймешь что ответ у тебя перед глазами.
плюс к его замечанию - Массивы вынести в процедуру