Блок схема алгоритма?

Кому нефиг делать составьте блок-схему алгоритма, который меняет главную и побочную диагональ в двумерном массиве. вот прога: program matrix;
const
nmax=100;
var
a: array[1..nmax,1..nmax] of integer;
n,m,i,j,tmp: integer;
begin
randomize;
write('Введите размер матрицы n: ');
readln(n);
writeln('Исходная матрица: ');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(199)-99;
write(a[i,j]:5);
end;
writeln;
end;

for i:=1 to n do
begin
tmp:=a[i,i];
a[i,i]:=a[i,n+1-i];
a[i,n+1-i]:=tmp;
end;
writeln('Измененная матрица: ');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:5);
writeln;
end;
writeln;
readln;
end.