Задача. Сортировка двухмерного массива Опции

[Dimon123]

Только начинаю знакомство с Turbo Pascal.

Преподаватель дал задачу

Её требуется выполнить с помощью двумерных символьных массивов, текстовых файлов и без процедур.

Задача:
Дан список владельцев телефонов (10 человек) в виде
ФАМИЛИЯ ТЕЛЕФОН
15 симв. 9 симв.
Данные в одной строке отделяются друг от друга пробелами .
Найти строку с первой по алфавиту фамилией и с наименьшим номером телефона.

Ниже заготовка программы:

program PP1; 
type 
t=array [1..20] of char; 
tt=array [1..10] of t; 
var 
A:tt; 
i,j:integer; 
Begin 
assign(input,'dan1.inp'); 
reset(input); 
assign(output,'res1.out'); 
rewrite(output); 
For i:=1 to 10 do 
Begin 
For j:=1 to 20 do 
Begin 
read(A[i,j]); 
write(A[i,j]); 
end; 
readln; 
writeln; 

Какие у кого мысли. пишите.
Просидел целый день так ничего и не добился.

М

Тэги!! Правила Форума, п.5. Lapp