Удаление из типизированного файла.вывод сообщения что такой записи нет

@Grizzz · Регистрация: 04.11.2012

Author24 — интернет-сервис помощи студентам

Добрый день вот мои наработки

Pascal

type
  TZ = record
    fio: string[20];
    pol: char;
    vozr: 0..100;
    rai: string[15];
    diz: string[12];
  end;
  s = file of TZ;
 
var
  Z: TZ;
  a: 0..5;
  f, r: s;
  f1: text;

процедура удаления:

Pascal

procedure udal(var f: s; n: integer);
var
  i: integer;
  b: TZ;
begin
  seek(f, n - 1);
  for i := n - 1 to filesize(f) - 2 do
  begin
    seek(f, i + 1);
    read(f, b);
    seek(f, i);
    write(f, b);
  end;
  seek(f, filesize(f) - 1);
  truncate(f);
  close(f);
end;

и кусок кода главной программы:

Pascal

          reset(f);
          write('удалить запись о пациенте по фамилии ');
          readln(s1);
          while not (eof(f)) do
          begin
            read(f, b);
            inc(k);
            if b.fio = s1 then j:=k;
          end;
          s1 := '';
          udal(f, j);
          k := 0;
        end;

и собствено вопрос как сделать так чтобы если пользователь ввел несуществующую фамилию или недавно удаленную выводилось сообщение типа этой записи нет в файле.заранее спасибо

	25.05.2013, 11:03