База данных, работа с .TXT

uses crt;
const n=20;
type Tstud=record//тип запись с полями по условию
           f,i,o:string[12];
           p:string[1];
           v:16..35;
           k:1..5;
           end;
procedure Convert(var a:string);//если файл написан русскими буквами перевести из Вин в Дос
var i:integer;
begin
for i:=1 to length(a) do
if ord(a[i]) in [192..239] then a[i]:=chr(ord(a[i])-64)
else if ord(a[i]) in [240..255] then a[i]:=chr(ord(a[i])-16)
else if ord(a[i])=168 then a[i]:=chr(ord(240))
else if ord(a[i])=184 then a[i]:=chr(ord(241));
end;
var sp,sp1,sp2:array[1..n] of Tstud;//массивы записей
    f:text;//файл
    bf:Tstud;//буфер для сортировки обменом
    name,s,s1:string;//ну и разные переменные для работы
    cho:string[12];
    i,j,k,l,max,imaxv,imaxo,n1,n2,chv:byte;
    t,c:integer;
begin
clrscr;
//связываем переменную с файлом и открываем его для чтения
write('Имя файла для чтения: ');
readln(name);
name:=name+'.txt';
assign(f,name);
{$I-} reset(f);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('Не могу открыть файл ',name);
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
//выводим данные из файла на экран, разбиваем строки и заносим в поля записи
writeln('Полный список студентов:':40);
writeln('-------------------------------------------------------------');
writeln('|  Фамилия  |     Имя    |  Отчество  | Пол | Возраст | Курс|');
writeln('-------------------------------------------------------------');
n:=0;
while not eof(f) do
   begin
    readln(f,s);//читаем строку
    Convert(s);//конвертируем
    n:=n+1; //считаем
    sp[n].f:=copy(s,1,pos(';',s)-1);//в примере разделитель между словами точка с запятой,                                     //напишете свой, читаем первое слово до разделителя,
                                    //если это строковое поле, сразу заносим в запись
    gotoXY(1,whereY);write('| ',sp[n].f);//выводим
    delete(s,1,pos(';',s));//удаляем его вместе с разделителем
    sp[n].i:=copy(s,1,pos(';',s)-1);
    gotoXY(13,whereY);write('| ',sp[i].i);
    delete(s,1,pos(';',s));
    sp[n].o:=copy(s,1,pos(';',s)-1);
    gotoXY(26,whereY);write('| ',sp[i].o);
    delete(s,1,pos(';',s));
    sp[n].p:=copy(s,1,pos(';',s)-1);
    gotoXY(39,whereY);write('|  ',sp[i].p);
    delete(s,1,pos(';',s));
    s1:=copy(s,1,pos(';',s)-1);
    val(s1,t,c);//если поле числовое, преобразуем строку в число
    sp[n].v:=t;//заносим в запись
    gotoXY(45,whereY);write('|   ',sp[i].v);
    delete(s,1,pos(';',s));
    val(s,t,c);
    sp[n].k:=t;
    gotoXY(55,whereY);write('|  ',sp[i].k);
    gotoXY(61,whereY);write('|');
    writeln;
  end;
readln;