Pascal работа с текстовыми файлами

[Andrey89]

Помагите пожалуйста пожалуйста решить задачу ,завтра зачет.
Требуется создать в текстовом редакторе входной текстовый файл Input.txt. Далее необходимо разработать структурированную программу,которая должна прочитать данные из этого файла в оперативную память компьютера,осуществить преобразование этой информации и вывести ее в требуемой форме в выходной текстовый файл Output.txt.
Input.txt: A,17800; B,1800; C,12500; D,19885;
Output.txt: D (19885); A (17800); C (12500); B (1800);

[theos]

Хм.. А что конкретно не получается? Какие есть наработки?

[Andrey89]

Я не понимаю ,как сделать сортировку в этой программе.
Уже 2-ой день сижу над этой прогой.

[Andrey89]

Помагите найти ошибку.
Что я не правильно сделал?

Uses CRT;
Const Max = 10;
Type R = Record
Litera: String[1];
Number: Integer;
End;
Var a: Array[1..Max] of R;
t: R;
s: String;
code: Integer;
i, j, k: Byte;
f1, f2: Text;
Begin
ClrScr;
Assign(f1, 'Input.txt'); ReSet(f1);
Assign(f2, 'Output.txt'); ReWrite(f2);
While not (EoF(f1)) do
Begin
Inc(i);
Readln(f1, s);
a[i].Litera := Copy(s,1,1);
Val(Copy(s,3,Length(s)-2), a[i].Number, code);
End;
For j := 1 to i do
Begin
For k := j to i do
Begin
If (a[k].Number > a[j].Number) then
Begin
t := a[k];
a[k] := a[j];
a[j] := t;
End;
End;
End;
For j := 1 to i do
Begin
Writeln(f2, a[j].Litera,',',a[j].Number);
End;
Close(f1); Close(f2);
End.