Найти среднее арифметическое каждого из столбцов с чётными номерами

Program ss2;
type
  matr=array[1..100,1..100] of integer;
var
a:matr;
m,n:integer;
s:array[1..100,1..100] of integer;
begin
writeln;  {pustaya stroka}
{zadanie}
writeln('Dana celochislennaya matrica razmerom m x n');
writeln('Naiti sredne arifmeticheskoe kagdogo iz stolbcov');
writeln('s chetnimi nomerami.');
a[m,n]:=1;
write('Vvedite kol-vo strok:');
readln(m);
write('Vvedite kol-vo stolbcov:');
readln(n);
s[m,n]:=a[m,n];
for m:=1 to m do     {sozdanie strok}
                begin
                   for n:=1 to n do {sozdanie stolbcov}
                                  begin
                                         write('Vvedite chislo: a',m,n,'=');
                                         readln(a[m,n]);
 
 
 
                                  end;
 
                                  end;
 
 for m:=1 to m do     {sozdanie strok}
                begin
                   for n:=1 to n do {sozdanie stolbcov}
                                  begin
 
                                     {s:=a[m,n];    }
                                      write(a[m,n]:3);
                                      s[m,n]:=s[m,n]+a[1,n];
                                      {writeln(s[m,n]);}
                                  end;
                                  writeln;
                                  {writeln(s[m,n]);}
                end;
                writeln(s[m,n]);
readln;
end.

program lab9;
var
a:string;
i,j:integer;
f:string;
begin
f:=' ';
a:='sasha petya vasia';
{write('Vvedite stroku:');
readln(a);}
j:=length(a);
for i:=1 to length(a) do
                if a[i]=f then
                writeln('probel');
for i:=1 to length(a) do
                         begin
                            if a[i]=a[j] then
                                           begin
                                               for j:=length(a) downto 1 do
                                                                  begin
                                                                  write(a[j]);
                                                                  if a[j]=' ' then
                                                                  write(' ');
                                                                  end
                                           end;
                        writeln;
                         end;
readln;
end.

for j:=2 to n do
if j mod 2=0 then
 begin
   sr:=0;
   for i:=1 to m do
   sr:=sr+a[i,j];
   writeln('Среднее в столбце ',j,' = ',sr/m:0:2);
 end;

program mas;
uses crt;
var
  a:array[1..5,1..5] of integer;
  b:array[1..5] of real;
var i,j:integer;
    n,m:integer;
    suma:real;
    arufm:real;
procedure Mat;
begin
  writeln('imput number of rows <=5');
  readln(n);
  writeln('imput number of colomns <=5');
  readln(m);
  randomize;
for i:=1 to n do
 for j:=1 to m do
  a[i,j]:=random(5);
end;
procedure OutMat;
begin
for i:=1 to n do
 begin
  for j:=1 to m do
   write(a[i,j]:6);
    writeln;
  end;
end;
procedure lol;
var s:real;
begin
for i:=1 to m do
 begin
  s:=0;
  for j:=1 to n do
   begin
    s:=a[j,i]+s;
    end;
  b[i]:=s/n;
 end;
end;
procedure OutB;
begin
 for i:=1 to m do
  write('   ',b[i]:2:1);
end;
procedure para;
begin
 suma:=b[2]+b[4];
  if m>4 then
   arufm:=suma/2
  else
   arufm:=suma;
 writeln('B)   ',arufm:2:1);
end;
begin
clrscr;
writeln('result of labwork 5');
writeln('variant 3, studenr Buha I');
mat;
outmat;
lol;
writeln;
write('A)');
outb;
writeln;
para;
readln;
end.