Ответ: Какие именно программы пытаетесь скачать. Напишите - резберусь
Программу выслал на личный

Ответ: Возни с такой прогой масса (она не сложная, использует массив записей): часа на два или на три. В зависимости от требуемого интерфейса (к стати, а какой нужен?). Времени маловато у меня сейчас. Если никто не возмется, напишите еще раз - обсудим

Ответ: Вот программа:
const
N = 4;
InFileName = ''matr4x4.dat'';
OutFileName = ''matr4x4.out'';

var
matr: array[1..N, 1..N] of Integer;
i, j: Integer;
sum : Longint;
min : array[1..N] of Integer; {номера минимальных элементов в ряду}
max : array[1..N] of Integer; {номера максимальных элементов в ряду}
f : Text;
BEGIN
WriteLn;
Assign(f, InFileName);
{$I-} Reset(f); {$I+}
if IOResult <> 0 then begin
WriteLn(''Файл '', InFileName,'' не существует. Работа программы невозможна'');
Halt(1);
end;
for i:=1 to N do
for j:=1 to N do Read(f, matr[i, j]);
Close(f);
{показ}
for i:=1 to N do begin
for j:=1 to N do
Write(matr[i,j]:8);
WriteLn;
end;
{поиск номеров минимальных и максимальных в каждом ряду}
for i:=1 to N do
begin
min[i]:=1;
max[i]:=1;
for j:=2 to N do begin
if matr[i, j] < matr[i, min[i]] then min[i]:=j;
if matr[i, j] > matr[i, max[i]] then max[i]:=j
end;
end;
{вычисление суммы минимальных}
sum:=0;
for i:=1 to N do sum := sum + matr[i, min[i]];

{показ на экран и сохранение в файл}
Assign(f, OutFileName);
Rewrite(f);
WriteLn(''Сумма минимальных элементов в рядах равна '',sum);
WriteLn(f, ''Сумма минимальных элементов в рядах равна '',sum);

WriteLn(''Минимальные и максимальные элементы в рядах:'');
WriteLn(f,''Минимальные и максимальные элементы в рядах:'');
for i:=1 to N do begin
WriteLn( i:8,'': '',matr[i, min[i]]:8, matr[i, max[i]]:8);
WriteLn(f, i:8,'': '',matr[i, min[i]]:8, matr[i, max[i]]:8);
end;
Flush(f);
Close(f);
END.

Ответ: Цветы и апельсины грузите бочками
/Братья Каразамовы/

Ответ: Это от того, что писался этот модуль для старых машин. Как решить проблему и взять новый модуль можно на нашем форуме http://www.yourpascal.com/topic655.html

Ответ: Ну, а мы что говорили?

Ответ: Примерно так:
const
max = 5;
var
matr: array[1..max, 1..max] of Integer;
i, j: Integer;
main_i, {номера максимального на главной}
m1, {на 1-й (сверху) побочной}
m2 : Integer; {на 2-й}
BEGIN
WriteLn;
for i:=1 to max do
for j:=1 to max do
matr[i,j] := Random(100);
{Показ}
for i:=1 to max do begin
for j:=1 to max do
Write(matr[i,j]:8);
WriteLn end;

{ищем на главной}
main_i:=1;
for i:=2 to max do
if matr[i, i] > matr[main_i, main_i] then main_i := i;
WriteLn(matr[main_i, main_i]);

{на первой побочной}
m1 :=1;
for i:=2 to max-1 do
if matr[i, i+1] > matr[m1, m1+1] then m1 :=i;
WriteLn(matr[m1, m1+1]);

m2:=2;
for i:=2 to max do
if matr[i, i-1] > matr[m2, m2-1] then m2 :=i;
WriteLn(matr[m2, m2-1]);
END.

Ответ: Есть несколько вариантов. Самый простой: объявить еще один массив размером, как эти два - и просто копировать элементы в заданном порядке

Ответ: Не ясно, один максимальный на всех или на каждой по максимальному?

Ответ: Мы краснеем (не в смысле "вступаем в партию")