Pascalの宿題は俺にやらせろ！！Part1

すみませんがどこがどうバグっているのかわかりません。できれば改良もお願いしたいです・・・
丸投げです・・・はい・・・お願いします！！！

プログラムの概要は以下の通りです
―――――――――――――――――――――――――――――――
(1) 新郵便番号を入力すると対応する住所を画面に表示する．

(2) 住所名の一部を表す文字列を入力すると，その文字列を含む住所と
対応する新郵便番号のリストを画面に表示する．
リストは新郵便番号の昇順にソートすること．

ただし，郵便番号と住所の対応データをレコードファイルとして記憶する．

まず，検索しやすいレコードファイルを出力するプログラムを作成する．
次に，このレコードファイルを用いて上記(1), (2)の検索機能を実現する
プログラムを作成する．
―――――――――――――――――――――――――――――――
大変お手数ですが、新郵便番号は以下のURLからソースを入手してください

↓大阪の住所一覧（テスト用に使用。４０００件程度）
http://www.vipper.org/vip166549.txt.html

↓全国の住所一覧（本番用に使用。１２万件強）
http://uploader.fam.cx/data/u0826.txt
（http://uploader.fam.cx/upload.htmlのu0826.txtです）

大至急お願いします。もう丸投げです。というか提出期限２２日です・・・
全部のソースを書き連ねると邪魔になるであろうと判断し、うｐしました。
↓重ね重ね申し訳ないんですが下のURLから僕のプログラムを落としてください。
http://www.vipper.org/vip166548.txt.html