Записи, Динамика, Текстовые и Типизированые файлы, простая база Опции

[punkska]

Поля
1. ф
2. И
3. О
4. оценка
5. др
пойск по оценке

Проверте пожалуйста правильность написанной программы
особенно с файлами! не на путал ли я что...
может есть излишества или глупости!

 Lab3_4.zip ( 2.15 килобайт ) Кол-во скачиваний: 522


и может кто поможет с процедурой пойска...а то что-то она не получаеться...

[volvo]

Ну, если по одному, тогда вот так:

procedure Delete(var n:integer; var Stud: PtrClass);
var
  b: integer;
  An:char;
begin

  repeat
    repeat
      repeat
        ClrScr;
        OutPut(n, stud);
        writeln('Do you want to delete some elements?');
        readln(An);
        if (An<>'n') and (An<>'y') then begin
          writeln('Answer Yes or No!');
          writeln('Try again. Press Enter...');
          readln;
        end;
      until (An='n') or (An='y');

      if An='n' then exit;

      repeat
        clrscr;
        OutPut(n, stud);
        writeln('Tape the number to delete: ');
        readln(b);
        if (b>n) or (b<1) then begin
          writeln('Error in number!!');
          writeln('Try again.Press Enter...');
          readln;
        end;
      until (b<=n) and (b>=1);

      writeln('Are you sure? (y/n)');
      readln(An);
    until (An='y') or (An='n');

  until An='y';

  move(stud^[b+1], stud^[b], (n - b)*sizeof(stud^[1]));
  dec(n);

  clrscr;
  writeln ('Element is erased!');
  readln;
end;