Найдите сумму всех элементов последовательности и посчитайте количество положительных элементов

Program summa;
Var a: array[1..10] of real;
      i, n: integer;
        s: real;
Begin
  Write (‘n=’); Readln (n);
  s:=0;
  For i:=1 to n do
     begin
       write (‘введите число’); readln (a[i]);
       s:=s+a[i];
     end;
     writeln(‘сумма  элементов равна  ‘,s);
End.

ch:=0; 
for i:=1 to m do if mas[ i, i ]>0 then ch:=ch+1;

const
  n = 10;
var
  i, k: integer;
  s, t: real;
begin
  for i:=1 to n do
  begin
    write('Ââåäèòå ',i,'-å ÷èñëî: ');
    readln(t);
    s:=s+t;
    if t>0 then inc(k);
  end;
  writeln('Ñóììà = ',s);
  writeln('Ïîëîæèòåëüíûõ: ',k);
  readln;
end.

const
  p = 3;
  
var
  a: array[1..20, 1..20] of integer;
  n, m, i, j, imin, jmin, imax, jmax, k: integer;
  s, t: real;
 
begin
  {ïåðâîå çàäàíèå}
  s:=0; k:=0;
  writeln('Ââåäèòå ',p,' ÷èñåë ïîñëåäîâàòåëüíîñòè');
  for i:=1 to p do
  begin
    write('Ââåäèòå ',i,'-å ÷èñëî: ');
    readln(t);
    s:=s+t;
    if t>0 then inc(k);
  end;
  writeln('Ñóììà = ',s);
  writeln('Ïîëîæèòåëüíûõ: ',k);
  
  {âòîðîå çàäàíèå}
  randomize;
  repeat
    write('Enter n, m (n, m <= 20): ');
    readln(n, m);
  until (n in [1..20]) and (m in [1..20]);
  writeln('Array:');
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i, j] := random(99) + 1;
      write(a[i, j]:4);
    end;
    writeln;
  end;
  imin := 1; jmin := 1; imax := 1; jmax := 1;
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      if a[i, j] < a[imin, jmin] then
      begin
        imin := i;
        jmin := j;
      end;
      if a[i, j] > a[imax, jmax] then
      begin
        imax := i;
        jmax := j;
      end;
    end;
  end;
  writeln('Max: a[', imax, ',', jmax, '] = ', a[imax, jmax]);
  writeln('Min: a[', imin, ',', jmin, '} = ', a[imin, jmin]);
  readln;
end.