Четные элементы в столбце

var a:array[1..20,1..20] of integer;
    n,i,j,k,s:integer;
begin
repeat
write('Введите размер матрицы от 2 до 20 n=');
readln(n);
until n in [2..20];
randomize;
writeln('Исходная матрица');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=10+random(90);
    write(a[i,j]:3);
   end;
  writeln;
 end;
 write('Введите номер столбца k=');
 readln(k);
 if k<3 then
  begin
   writeln('Левее столбца ',k,' нет элементов выше главной диагонали');
   exit;
  end;
s:=0;
for i:=1 to k-1 do
for j:=i+1 to k-1 do
if a[i,j]mod 2=0 then inc(s);
writeln('Количество четных элементов в области левее столбца ',k,' и выше главной диагонали=',s)
end.

type mtr=array[1..20,1..20] of integer;
procedure vvod(var n:integer;var a:mtr);
var i,j:integer;
begin
repeat
write('Введите размер матрицы от 2 до 20 n=');
readln(n);
until n in [2..20];
randomize;
for i:=1 to n do
for j:=1 to n do
a[i,j]:=10+random(90);
end;
procedure vyvod(n:integer;a:mtr);
var i,j:integer;
begin
writeln('Исходная матрица');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:3);
  writeln;
 end;
end;
procedure zadanie(n:integer;a:mtr);
var i,j,k,s:integer;
begin
write('Введите номер столбца k=');
readln(k);
if k<3 then
 begin
  writeln('Левее столбца ',k,' нет элементов выше главной диагонали');
  exit;
 end;
s:=0;
for i:=1 to k-1 do
for j:=i+1 to k-1 do
if a[i,j]mod 2=0 then inc(s);
writeln('Количество четных элементов в области левее столбца ',k,' и выше главной диагонали=',s)
end;
var a:mtr;
    n:integer;
begin
vvod(n,a);
vyvod(n,a);
zadanie(n,a);
end.