Правильно ли написана программа ?

Question

procedure DoNothing;
begin
end;
function Return0:integer;
begin
Return0:=0;
end;
const nmax=15;
var a:array[1..nmax,1..nmax] of integer;
n,i,j:byte;
k:integer;
begin
clrscr;
randomize;
repeat
write('Размер матрицы до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица: ');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=1+random(20);
write(a[i,j]:4);
end;
writeln;
end;
writeln;
k:=n*n;
for i:=2 to n-1 do
for j:=1 to n div 2 do
if(j<i)and(j<n-i+1) then
begin
a[i,j]:=0;
k:=k-1;
end;
writeln('Измененная матрица: ');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;
write('Осталось не нулевых=',k);
readln
end.

Напишите что не так)

Дима Комаров · Accepted Answer

Эх Рома, Рома. . 
procedure DoNothing;
begin
end;
function Return0:integer;
begin
Return0:=0;
end;

Вот увидит это препод и начнет плакать от смеха. . И спросит Вас - а что это тут написано? (А он ведь спросит =)
Вот что Вы ему, глядя в глаза ответите? =))

Англиский-то в школе хоть проходите? DoNothing переведите. Вам похоже подсказали, но то-ли пошутили, то-ли Вы не совсем поняли...

Валентин Бутаков · Answer

Программа работает в полном соответствии с описанным алгоритмом.
Совпадает ли результат работы программы с замыслом разработчика - уже совсем другой вопрос, ответить на который не имея телепатических способностей затруднительно.

Катюска Скапашка · Answer

Бросаются в глаза 2 явно лишние процедуры в начале и не оформленный в виде подпрограммы вывод матрицы. Вообще, пиши побольше процедур. Твоя программа должна выглядеть так:

begin
n:=AskForMatrixSize(NMax);
FillMatrix(a, n);
PrintMatrix(a, n, 'Source matrix');
AlterMatrix(a, n);
PrintMatrix(a, n, 'Altered matrix');
end.

Это будет гораздо красивее и понятнее.