ЗАДАЧА НА СОРТИРОВКУ ДВУМЕРНОГО МАССИВА, ПОМОГИТЕ НУЖНА В ПЯТНИЦУ 13.06.08. ЗАДАЧА НЕСЛОЖНАЯ Опции

[АНГЕЛ]

ВЗЯТЬ ДАННЫЕ ИЗ ФАЙЛА И ОТВЕТ ПОМЕСТИТЬ В ФАИЛ.
ДАН ДВУМЕРНЫЙ МАССИВ 5 НА 5. ВЫВЕСТИ ТАКИЕ ЧИСЛА КОТОРЫЕ БУДУТ МИНИМАЛЬНЫ В СТРОКЕ И МАКСИМАЛЬНЫ В СТОЛБЦЕ И НАОБОРОТ МАКСИМАЛЬНЫ В СТРОКЕ И МИНИМАЛЬНЫ В СТОЛБЦЕ.

ПОЖАЛУЙСТА ПОМОГИТЕ!!! ЗАРАНЕЕ СПАСИБО!!!

У МЕНЯ ПОЛУЧИЛОСЬ ВЗЯТЬ ИЗ ФАЙЛА, А КАК ДАЛЬШЕ Я НЕ ЗНАЮ. НЕ ПОЛУЧАЕТСЯ ОТСОРТИРОВАТЬ.

VAR F: TEXT;
I,J: INTEGER;
VAR A:ARRAY [1..5,1..5] OF INTEGER;
BEGIN
ASSIGN(F,'MASSIV.DAT');
RESET(F);
FOR I:= 1 TO 5 DO BEGIN
FOR J:= 1 TO 5 DO BEGIN
READ(F, A[I,J]);
WRITE(A[I,J]:4);
END;
WRITELN;
END;
END.

ПОМОГИТЕ!!!!!

Сообщение отредактировано: АНГЕЛ - 11.06.2008 22:40