В одномерном массиве

uses crt;
var
 a:array[1..10] of integer;
 i,n,max:integer;
begin
 clrscr;
 randomize;
 writeln('Введите размерность: ');
 readln(n);
 for i:=1 to n do
  begin
   a[i]:=random(10)-5;
  end;
 writeln('Исходный массив: ');
 for i:=1 to n do
  begin
   write(a[i],' ');
  end;
 max:=1;
 for i:=1 to n do
  begin
   if a[i]>a[max] then
   max:=i;
  end;
 writeln('Номер максимального элемента: ',' ',max);
 writeln('Максимальный элемент: ',' ',a[max]);
end.

var A:array[1..100] of integer;
    n,i:integer;
    proiz:integer;
begin
 writeln('Введите размер массива: ');
 readln(n);
 writeln('Введите элементы массива: ' );
 for i:=1 to n do
 read(A[i]);
 writeln('Исходный массив: ');  
 for i:=1 to n do
 write(A[i],' ');
 writeln;  
 proiz:=1;  
 i:=0;
 repeat
  i:=i+1;
 until A[i]=0;
 i:=i+1; 
 while A[i]<>0 do
  begin
   proiz:=proiz*A[i];
   i:=i+1;
  end;
 writeln('Произведение элементов массива: ',proiz);
end.

const n=8;m=8;
type Matrica= array[1..n,1..m] of integer;
var mas:Matrica;
    i,j,t:integer;
    Massum:array[1..n] of integer;
 
Procedure K (Massiv:Matrica);
var i:integer;
    k:array[1..n] of integer; {Массив к-х значений}
begin
  for i:=1 to n do
    begin
     k[i]:=massiv[i,i];  {Находим к-е элементы}
     write(k[i],' ');
    end;
end;
 
Function SummaStr (massiv:Matrica;nomerStroki:integer):integer;
var summa:integer;
begin
summa:=0;
  for i:=1 to  n do
    summa:=summa+Massiv[nomerStroki,i];
 
  SummaStr:=summa;
end;
 
begin
 for i:=1 to n do
  for j:=1 to m do
   begin
    write('Введите ',i,j,' элемент');
    readln(mas[i,j]);
   end;
 
writeln('Введенная матрица:');
 for i:=1 to n do
  begin
  write('|');
   for j:=1 to m do
    write(mas[i,j],' ');
  writeln('|');
  end;
 
K(mas);
 
t:=0;
  for i:=1 to n do
   begin
     for j:=1 to m do
      if mas[i,j]<0 then
         begin
          inc(t);
          Massum[t]:=SummaStr(mas,i);
          writeln('Сумма элементов ',i,' строки=',Massum[t]);
         end;
    end;
end.