Обработка текстового файла, содержащего сведения о студентах

program n1;
 
type
  rec = record                                                                  //запися из
    site: string[20];                                                           //сайто
    login: string[20];                                                          //логино
    pass: string[20];                                                           //пароля
  end;
 
var
  passes: file of rec;                                                          //файл с записями
  pass0: rec;                                                                   //переменная с записью
 
procedure addrec;//пишем в pass0, дальше всё идёт на процедуру rectofile или updaterec
begin
  with pass0 do                                                                 //лень комментить, всё и так понятно
  begin
    write('адресочек: ');
    readln(site);
    write('имярек: ');
    readln(login);
    write('пассъ: ');
    readln(pass);
  end;
end;
 
procedure rectofile;
begin
  if fileexists('C://pass.base')                                                //если файло есть
  then                                                                          //тогда
  begin
    reset(passes);                                                              //открыть
    seek(passes, filesize(passes));                                             //найти конец
    write(passes, pass0);                                                       //записать в конец
  end
  else                                                                          //иначе
  begin
    rewrite(passes);                                                            //создать файло
    write(passes, pass0);                                                       //записать
  end;
end;
 
procedure addrecfull;//одна из самых индусских процедур
var
  a: char;
begin
  repeat ;                                                                      
    begin
      addrec;                                                                   //ввод сайт/логин/пароль
      rectofile;                                                                //и запись этого в файл
      write('пишем?(y/n): ');                                                   //если есть ещё что-то
      readln(a);                                                                
    end;                                                                        //повторяем
  until (a = 'n') or (a = 'N');                                                 //пока не ответили N or n
end;
 
procedure updaterec;//обновозапись 
var
  numrec: byte;                                                                 //не собираюсь записывать больше 125 записей. у меня учёток столько нет
begin
  write('введи-кось номер записи: ');
  readln(numrec);                                                               //считываем порядковый номер
  reset(passes);
  seek(passes, numrec - 1);                                                     //ищем запись по этому номеру и ставим курсор перед ней
  read(passes, pass0);                                                          //пихаем запись по этому номеру в pass0
  with pass0 do                                                                 //выводим содержимое pass0
  begin
    writeln('было как-то так');
    writeln('I-------------------I--------------------I-------------------I');  //СУПЕРТАБЛИИИИЦАААА!!!!
    writeln('I', site:17, '  I', login:18, '  I', pass:17, '  I');
    writeln('I-------------------I--------------------I-------------------I');
  end;
  writeln('мутим заново');
  addrec;                                                                       //см. выше
  begin
    reset(passes);                                                              //открыть
    seek(passes, numrec - 1);                                                   //найти курсор
    write(passes, pass0);                                                       //записать туда, где курсор, то, что в pass0
  end;
  writeln;
  writeln('готово');
  writeln('PЯESS ENTEЯ TO WIN');
  readln;
end;
 
procedure screenoutput;//экрановывод
begin
  reset(passes);
  writeln('I---I-------------------I---------------------I-------------------I'); //СУПЕРТАБЛИИИИИИИИИИЦААААААААААА!!!!!!!11
  writeln('I № I  сайтъ            I  логинъ             I  пассъ            I');
  writeln('I---I-------------------I---------------------I-------------------I');
  while not eof(passes) do                                                      //пока не конец делать
  begin
    read(passes, pass0);                                                        //считать в pass0 запись
    with pass0 do                                                               //и выводить её..
    begin
      writeln('I', filepos(passes):3, 'I ', site:16, '  I ', login:19, ' I', pass:17, '  I'); //..В СУПЕРТАБЛИИИИИЦУУУУУУ!!!!!!!1
      writeln('I---I-------------------I---------------------I-------------------I');
    end;
  end;
  writeln;
  writeln('PЯESS ENTEЯ TO WIN');
  readln;
end;
 
procedure findbysite;//поиске по сайту НЕ ФУНЦИКЛИРУЕТ!!!!!!
var
  mask: string[20];                                                             //маска для поиска
  result: boolean;                                                              //булька если не найдётся
  count: byte;
begin
  reset(passes);
  write('пиши сайто: ');                                                        //ввод маски
  readln(mask);                                                                 //считать маску
  result := false;                                                              //на случай ядерной войны
  count := 0;
  while(not eof (passes)) do                                                    //пока не конец
    read(passes, pass0);                                                        //считывать из passes в pass0
  with pass0 do                                                                 //с pass0 делать
    if pos(mask, site) <> 0 then                                                //функция pos возвращает позицию подстроки mask в строке site. если не найдена, возвращает 0.
    begin
      result := true;                                                           //если не ноль то что-то нашлось
      inc(count);
      with pass0 do
      begin;                                                                    //и выводим это в СУПЕРТАБЛИЦУУУУУ!!!!1
        writeln('I---I-------------------I---------------------I-------------------I');
        writeln('I', filepos(passes):3, 'I ', site:16, '  I ', login:19, ' I', pass:17, '  I');
        writeln('I---I-------------------I---------------------I-------------------I');
      end;
    end;
  
  //if result = true then 
  writeln('таких есть ', count);                           //а если ноль то ничего не нашлось
  //else writeln('404: не найдено');
  writeln;
  writeln('PЯESS ENTEЯ TO WIN');
  readln;
end;
 
 
 
procedure menu;//главноменю
var
  q: char;
  endiwe: boolean;
begin
  repeat ;
    begin
      writeln;                                                                  //тут всё понятно
      writeln('главноменю');
      writeln;
      writeln('англобуквы:значение');
      writeln('o:экрановывод');
      writeln('n:новозапись');
      writeln('u:обновозапись');
      writeln('s:поиске по сайту!В РАЗРАБОТКЕ!');
      writeln('e:свалить отсюда');
      writeln;
      write('выбирай таблетку, нео: ');
      readln(q);
      case q of
        'o': screenoutput;
        'n': addrecfull;
        'u': updaterec;
        's': findbysite;
        'e': endiwe := true;
      end;
    end;
  until endiwe = true;
end;
 
procedure firewall;//фаерволлъ
var
  answer: string;
begin
  writeln('а туда ли ты зашёл, петушок?');
  readln(answer);
  if (answer = 'да, я зашёл туда')
    then menu
  else begin
    writeln('шёл бы ты отсюда, петушок');
    halt(2);
  end;
end;
 
begin
  assign(passes, 'C://pass.base');
  firewall;
  writeln;
  writeln('конец');
  writeln('PЯESS ENTEЯ TO WIN');
  readln;
end.

const
  
  maxN = 100;
 
type
  TVector = array[1..MaxN] of integer;
 
 
//Файл
 
procedure Input();
var
  f: text;
  s: string;
  j: integer;
begin
  s := 'student.txt';
  assign(f, s);
  reset(f);
  while not eof(f) do 
  begin
    readln(f, s);
    writeln(s, ' ');
  end;
  Close(f);
end;
 
//Swap 
procedure swap(var a, b: Integer);
var
  tmp: Integer;
begin
  tmp := a;
  a := b;
  b := tmp;
end;
 
// Поиск студента
 
function Search(var ar: TVector; s: string): string;
var
  i, n: integer;
begin
  for i := 1 to n do
  
end;
 
//Отчисление студента
 
  procedure delete(var ar: TVector; s: string; var n: integer; j: integer);
 var
  g, f, i: string;
  y: integer;
  p: boolean;
begin
  if j = 0 then
  begin
    p := true;
    while p do
    begin
      write('Введите фамилию студента: ');
      readln(f);
      write('Введите имя студента: ');
      readln(i);
      j := 1;
      while 
 
procedure VPrint(const v: TVector; n: integer);
var
  i: integer;
begin
  for i := 1 to n do
  begin
    write(v[i]);
    if (i < n) then write(',');
  end;
end;
 
//Сортировка
 
procedure bubble(var v: TVector; n: integer);
 
var
  i, j: Integer;
  Swapped: Boolean;
begin
  i := 0;
  vPrint(v, n);
  
  Swapped := True;
  while Swapped Do
  begin
    inc(i);
    Swapped := False;
    for j := n downTo i + 1 do
      if v[j] > v[j - 1] then 
      begin
        swap(v[j], v[j - 1]);
        Swapped := True;
      end;
    vPrint(v, n);
  end;
end;
 
//exit
 
procedure vihod();
var
  p: integer;
begin
  exit;
end;
 
//Главное меню
 
procedure Menu();
var
  a: integer;
begin
  writeln('1. Open file');
  writeln('2. Чтение файла записей в массив ');
  writeln('3. Сортировка  массива');
  writeln('4. Поиск студента по фамилии и выдача на экран');
  writeln('5. Добавление студента в файл');
  writeln('6. Отчисление студента');
  writeln('7. Выход');
  readln(a);
  if a = 1 then Input()
  else if a = 2 then bubble()
  else if a = 3 then writeln(' in progress' )
  else if a = 4 then writeln(' in progress' )
  else if a = 5 then writeln(' in progress' )
  else if a = 6 then writeln(' in progress' )
  else if a = 7 then vihod()
end;
 
var
  t: tvector;
  f: file of char;
  s: string;
  i, n: integer;
 
begin
  menu();
end.