Помогите, люди добрые! Составьте код программы на Borland Paskal, пожалуйста!

эээ.. . сорри за сарказм, но Вы студент и программа нужна Вам, или это Ваш сын сам не может задать вопрос на мейле? (я просто смотрю на фото)

Да и спасибо тут дождаться проблематично.

program qwe;
const
m=7;
n=5;
var
a:array[1..m,1..n] of integer;
a1:array[1..n] of integer;
min:array[1..m] of integer;
i,j,i1,j1,x,y:integer;
begin

{Задаем массив и выводим его на экран}
randomize;
for i:=1 to m do
begin
for j:=1 to n do
begin
a[ i, j]:=random(50)-20;
write(a[ i, j]:4);
end;
writeln;
end;

{считаем количество положительных элементов в каждом столбике}
for i:=1 to m do
begin
for j:=1 to n do
begin
if (a[ i, j] > 0) then inc(a1[j]);
end;
end;
writeln;
{Выводим колучившееся количество положительных элементов в каждом столбике}
for j:=1 to n do write(a1[ j ]:4);

for i:=n-1 downto 1 do
for j:=1 to i do
if a1[j]<a1[j+1]>a[ i,j]) then min[ i]:=a[ i,j];
end;
end;

x:=0;

for i:=1 to m do
for j:=i to m do
begin
if (i <> j) and (min[j]=min[ i ]) then inc(x);
end;

for j:=1 to m do write(min[j]:4);
writeln;
if (x > 0) then
writeln('Строки с одинаковым минимальным элементом имеются')
else writeln('Строки с одинаковым минимальным элементом НЕ имеются');
readln;
end.

в подпрограмму можешь запихать вывод

чо та код не алле,
на ссылку (пробелы убери)
http : / / pastebin.mozilla-russia . org /110015

сомневаюсь, что кто то за спасибо захочет это писать. .
все таки работа относительно объемная. . но все равно удачи))