Обработка символьной информации, помогите пож, оч срочно надо.... Опции

[Aracurd]

Нужно создать программу для поиска и выведения заданной информации из текстового файла
Файл должен состоять с 15 рядов, в каждом ряду должна быть записана такая информ.: Фамилия, год рожд., и 3 числа(всё придуманое) .
и нужно сделать чтоб программа читала дынные с файла, потом выводила считанные данные на экран,потом проводила сортировку и выводила те фамилии у которых год рождения непарный.
Помогите оч прошу...Реально надо очень срочно...пожалуста

[Aracurd]

program rgr2;
uses CRT;
var
fs:text;
x:string[11];
y1:integer;
y2:integer;
y3:integer;
i,j:integer;
begin
clrscr;
assign(fs,'spusok.txt');
reset(fs);
while not eof(fs) do
begin
readln(fs,x,y1);
writeln(x,' ',y1);
end;
writeln('----------------------');
readln;
close(fs);
reset(fs);
while not eof(fs) do begin
readln(fs,x,y1);
if y1=1991 then writeln(x,' ',y1)
else
write;
end;
readln;
close(fs);
end.

Вот моя програма,+ файл к ней (она работаетБ он может ктото может подсказать ещё какойто способ)???