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

[Aracurd]

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

[Feagor]

так на вскидку, пока не понял на счет года рождения

uses crt;
var s:string;
    i,j,count:integer;
    a:array[1..15,1..255] of char;
begin
assign(input,'d:\1234.dat');
reset(input);
while not eof(input) do
        begin
         inc(j);
         readln(s);
         for i:=1 to length(s) do a[j,i]:=s[i];
        end;
count:=j;
for j:=1 to count do
        begin
        writeln;
        for i:=1 to 255 do write(a[j,i]);
        end;
end.

Добавлено через 6 мин.

x:string[11];

а если фамилия будит больше 11 символов или вместо табуляции разделителем будит пробел?

if y1=1991 then writeln(x,' ',y1)

не понял что эта строка делает