Текстовый тип файлов [Pascal]

[TRueXe]

Нужна помощь, нам данна базы данных вида:

Студент1 группа981 Иван
Студент2 группа981 ....
Студент3 группа981 ....
Студент4 группа981 ....
Студент5 группа981 ....

Она сохранена в файле c с расширением .dat , по условию задачи нужно произвести поиск нужного студента, а затем удалить строку в которой прописана информация о нем. Как добавить нового студента в базу я разобрался, а вот как удалить не могу понять... Help me please!!!!!

[ROMA2PVT]

       procedure Clearfile;
        var st:prokat;
            studtoout:string[20];
            fo:file of prokat;
        begin
             writeln('Задайте имя файла,из которого удаляются элементы');
             readln(filename);
             assign(f,filename);reset(f);
             assign(fo,'newfile.dat');rewrite(fo);
             writeln('Задайте фамилию клиента, запись о котором
удаляется');
             readln(studtoout);
              while not eof(f) do
               begin
                read(f,st);
                if st.sname_Hozaina<>studtoout then write(fo,st);
               end;
              close(f);close(fo);
              erase(f);
              rename(fo,filename);
         end;

Вот процедурка удаления.Не моя.В своей базе я делал удаление по номеру.Разбирайтесь.

[Grag]

ROMA, в заголовке темы указано, что файл текстовый, так что твой типизированный файл не прокатит. И, судя по примеру фрагмента файла, приводимого ТС, он действительно текстовый....Так что тут нужно нечто другое, более замороченное... Хотя ничего сложного нет, просто строка файла содержит то, что соответствует одному персоналию...

[ROMA2PVT]

ROMA, в заголовке темы указано, что файл текстовый, так что твой типизированный файл не прокатит. И, судя по примеру фрагмента файла, приводимого ТС, он действительно текстовый....Так что тут нужно нечто другое, более замороченное... Хотя ничего сложного нет, просто строка файла содержит то, что соответствует одному персоналию...

Блин.Эт моя невнимательность.