Матрицы и их диагонали

const N = 10;
type mas=array [1..n,1..n] of byte;
var a,b:mas;
    k  :byte;
procedure readdata;
var i,j:byte;
begin
     randomize;
     for i:=1 to n do
      for j:=1 to n do
            a[ i,j] := random(10);
end;
procedure outdata(m:mas);
var i,j:byte;
begin
     for i:=1 to n do
      begin
           for j:=1 to n do
            write(m[ i,j]:3);
           writeln;
      end;
end;

procedure showupmain;
var i,j:byte;
begin
     for i:=1 to n do
      begin
       for j:=1 to n do
        if i < j then
           begin
                write(a[ i,j]:3);
                if (odd(a[ i,j])=FALSE) and (a[ i,j]<>0) then inc(k);
           end
           else write('   ');
       writeln;
      end;
     writeln('KoJIu4ecTBo 4eTHbIX : ',k);
end;

procedure pobochnajadiagonal;
var i,j:byte;
begin
     for i := 1 to n do
     begin
      for j := 1 to n do
       if j=n-i+1 then write(a[ i,j]:3)
       else write('   ');
      writeln;
      end;
end;
procedure smth;
var i,j:byte;
begin
     for i:=1 to n do
     begin
          for j:=1 to n do
              if j=n-i+1 then begin a[ i,j]:=k;write(a[ i,j]:3);end
              else write('   ');
          writeln;
     end;
end;

begin
readdata;
b:=a;
outdata(a);
writeln('press <ENTER>');readln;
writeln('----MAIN----');
showupmain;
writeln('press <ENTER>');readln;
pobochnajadiagonal;
writeln('press <ENTER>');readln;
if k>0 then smth
else writeln('HALT');
writeln;
writeln('input array');
outdata(b);
writeln;
writeln('output array');
outdata(a);
readln;
end.

тема на форму