чёрный ящик

[comeoff]

Люди добрые, помогите сделать "чёрный ящик"
денежное вознаграждение гарантируется. сделать нужно сегодня т.к. завтра нада сдать.

программа на паскале, ищет количества максимумов в файле, содержимое файла генерируется отдельной программой.

Сообщение от ищем максимумы

uses crt;
var i,k,max:integer;
m:array [1..20] of integer;
f:file of integer;
function find:integer;
begin
max:=m[1];
k:=1;
for i:=2 to 20 do
begin
if max<m[i] then
begin
max:=m[i];
k:=1;
end
else
if max=m[i] then
inc(k);
end;
find:=k;
end;
begin
clrscr;
assign(f,'1.txt');
reset(f);
i:=1;
while not eof(f) do
begin
read(f,m[i]);
write(m[i],' ');
inc(i);
end;
writeln;
write('rezultat= ',find);
repeat until keypressed;
end.

Сообщение от генерируем содержимое txt файла

uses crt,dos;
var f:file of integer;
i,n:integer;
begin
clrscr;
assign(f,'1.txt');
rewrite(f);
randomize;
for i:=1 to 20 do
begin
n:=random(11);
write(n,' ');
write(f,n);
end;
close(f);
repeat until keypressed;
end.

[Андрей.12]

нужно исправить ошибки? какие недочеты в вашем коде?

[comeoff]

нет, программа работает как нужно. нужно сделать "чёрный ящик"
расписать нужно принцип чёрного ящика по данной задаче.

[comeoff]

нужно описание тестирования программы с применением метода черного ящика

[comeoff]

можно закрывать