Текстовый файл о студентах в виде таблицы, Паскаль

[ExZzoTiC]

Вообщем есть у меня программа что создает текстовыый файл о студентах, где данные о них самому нужно вводить.
Как сделать что бы в файле данные выглядили как таблица, а не в один столбец.
И как сделать так что бы можно было найти студента по дате рождения или кол-во балос на екзамене?
Код ПАСКАЛЯ:

program labor8feladat2;
var f: text; i,j,k: integer; a,b,c,d,e:string;
  const n: integer = 2; fname: string = 'Students.txt';
Begin
  assign(f,fname);
  rewrite(f);
  writeln('Irjon be a diakok vezetek nevet es inicialet: '); {ФИО СТУДЕНТА}
   writeln(f,'Diak vezetek nev es iniciale: ');
  for i:=1 to n do begin 
  readln(a);
  write(f,i,') ');
  writeln(f,a,';');
  end;
  begin
  assign(f,fname);
  rewrite(f);
  writeln('Irjon be a diakok szuleinek a lakohelyet: '); {ГДЕ ПРОЖЫВАЕТ}
  writeln(f,'--------------------------------------------');
  writeln(f,'Diak szuleinek a lakohely: ');
  for i:=1 to n do begin 
  readln(b);
  write(f,i,') ');
  writeln(f,b,';');
  end;
  begin
  assign(f,fname);
  rewrite(f);
  writeln('Irjon be a diakok NEMet: '); {СТАТЬ}
  writeln(f,'--------------------------------------------');
  writeln(f,'Diak NEMe: ');
  for i:=1 to n do begin 
  readln(c);
  write(f,i,') ');
  writeln(f,c,';');
  end;
  begin
  assign(f,fname);
  rewrite(f);
  writeln('Irjon be a diakok szuletesi datumot: '); {ГОД РОЖДЕНИЯ}
  writeln(f,'--------------------------------------------');
  writeln(f,'Diak szuletesi datum: ');
  for i:=1 to n do begin 
  readln(d);
  write(f,i,') ');
  writeln(f,d,';');
  end;
  begin
  assign(f,fname);
  rewrite(f);
  writeln('Irjon be a diakok osszpontszamat a vizsgan: '); {КОЛ-ВО БАЛЛОВ НА ЕКЗАМЕНЕ}
  writeln(f,'--------------------------------------------');
  writeln(f,'Diak osszpontszama a vizsgan: ');
  for i:=1 to n do begin 
  readln(e);
  write(f,i,') ');
  writeln(f,e,';');
  end;
  close(f);
  end;
  end;
  end;
  end;
End.

[Krasiosoft]

Сообщение от ExZzoTiC

Как сделать что бы в файле данные выглядили как таблица, а не в один столбец.

Пишите данные через write, а когда нужен переход на следующую строку, тогда через writeln. Используйте форматированный вывод:

var 
  i:integer
...
write(f,i:5);

запишет значение переменной i, используя для этого 5 символов в файле.

Сообщение от ExZzoTiC

И как сделать так что бы можно было найти студента по дате рождения или кол-во балос на екзамене?

Считываете с файла нужные данные и сравниваете с заданными для поиска.