Сортировка выбором..

[AronakSS]

Здравствуйте. Парни, вообщем проблема заключается в том, куда в данный код "вход, выход", засунуть сортировку выбором? Как сортировать, если по условию задачи, у нас есть 10 дат рождения ****, и куда их кинуть в код. Большое спасибо за ответ.


program P1;

type T = array[1..24] of char;
TT = array[1..10] of T;

var a: TT;
inFile, outFile: text;
i,j: integer;
code: integer;
year, minYear, maxYear: integer;
mIndex, fIndex: integer;

begin
Assign(inFile,'p192.pas');
Reset(inFile);
for i:=1 to 10 do
begin
for j:=1 to 24 do
begin
Read(inFile,a[i][j]);
end;
ReadLn(inFile);
end;
Close(inFile);

Assign(outFile,'p1.out');
Rewrite(outFile);
WriteLn(outFile,'Input file:');
for i:=1 to 10 do
begin
for j:=1 to 24 do
begin
Write(outFile,a[i][j]);
end;
WriteLn(outFile);
end;
WriteLn(outFile);
close(outfile)
end.

[Я_и]

[I]program P1;

type T = array[1..24] of char;
TT = array[1..10] of T;

var a: TT;
Temp:Integer;
inFile, outFile: text;
i,j: integer;
code: integer;
year, minYear, maxYear: integer;
mIndex, fIndex: integer;

function More(A,B:T):Boolean;
begin
{прописываешь сравнение двух дат}
end;

procedure Swap(var A,B:T);{обмен местами}
var C:T;
begin
C:=A; A:=B; B:=C;
end;

begin
Assign(inFile,'p192.pas');
Reset(inFile);
for i:=1 to 10 do
begin
for j:=1 to 24 do
begin
Read(inFile,a[i][j]);
end;
ReadLn(inFile);
end;
Close(inFile);


for i:=1 to 9 do
begin
Temp:=i;
for j:=i+1 to 10 do
if More(A[i],A[Temp]) then
Temp:=i;
Swap(A[i],A[Temp]);
end;


Assign(outFile,'p1.out');
Rewrite(outFile);
WriteLn(outFile,'Input file:');
for i:=1 to 10 do
begin
for j:=1 to 24 do
begin
Write(outFile,a[j]);
end;
WriteLn(outFile);
end;
WriteLn(outFile);
close(outfile)
end.


И пиши читабельный код - читать невозможно.. A:T;B:TT.....