Моделирование работы с базой данных

sr:array[1..5] of integer;

program lab;
uses crt;
type
     table=record
           nkaf:string[10];
           nfak:string[10];
           numk:1..6;
           kstr:integer;
           ksss:integer;
           end;                   
procedure add(var z:file of table;var x:table);
var
     kol,i,s:integer;
begin
assign(z,'db.dat');
writeln('1 - Создать новый файл (Файл с таким именем будет удален)');
writeln('2 - Добавить данные в текущий файл');
write('Ваш выбор : ');
readln(s);
if s=1 then 
       rewrite(z)
       else 
            begin 
            reset(z); 
            Seek(z,FileSize(z)) 
            end;
write('Кол-во добавляемых записей : ');
repeat
readln(kol);
if kol=0 then write('Введите число больше нуля : ');
until kol>0;
for i:=1 to kol do
begin
     with x do
     begin
     write('Название кафедры : ');
     readln(nkaf);
     write('Название факультета : ');
     readln(nfak);
     write('Номер корпуса : ');
     readln(numk);
     write('Число сотрудников : ');
     readln(kstr);
     write('Число сотрудников со степенями и званиями : ');
     readln(ksss);
     writeln('     ++++++++++     ');
     end;
write(z,x);
end;
close(z);
end;
procedure show(var z:file of table;var x:table);
var sl:integer;fak:string;
begin
assign(z,'db.dat');
reset(z);
writeln('1 - Вся таблица');
writeln('2 - Список кафедр, процент остепененности < 50%');
write('Ваш выбор : ');
repeat
readln(sl);
if (sl<>1) and (sl<>2) then write('Введите 1 или 2 : ');
until (sl=1) or (sl=2);
case sl of
     1:begin
       write('+------------------------------------------------------------------------------+');
       write('|                            Список всех кафедр                                |');
       write('+------------------------------------------------------------------------------+');
       write('| Название каф. | Название факул. | Корпус | Число сотр. | Число сотр со степ. |');
       write('+---------------+-----------------+--------+-------------+---------------------+');
       while not eof(z) do
          begin 
               read(z,x);
               with x do
               write('|',nkaf:15,'|',nfak:17,'|',numk:8,'|',kstr:13,'|',ksss:21,'|');
          end;
       write('+------------------------------------------------------------------------------+');
       writeln;
       end;
     2:begin
       write('Факультет : ');
       readln(fak);
       writeln('+----------------------------------------------------------------+');
       writeln('|     Список кафедр, процент остепененности меньше 50%           |');
       writeln('+----------------------------------------------------------------+');
       writeln('| Название каф. | Корпус | Число сотр. | Число сотр со степ. | % |');
       writeln('+---------------+--------+-------------+---------------------+---+');
       while not eof(z) do
          begin 
               read(z,x);
               with x do
               if (kstr/ksss >2) and (nfak=fak) then
               writeln('|',nkaf:15,'|',numk:8,'|',kstr:13,'|',ksss:21,'|',100/kstr*ksss:3:0,'|');
          end;
       writeln('+----------------------------------------------------------------+');
       writeln;
       end;
end;
end;
var
     select:string;
     slct:integer;
     t:table;
     f:file of table;
begin
repeat
slct:=0;
writeln('Выберите действие (show,add,clear,exit) :');
readln(select);
if select='add'   then slct:=1;
if select='show'  then slct:=2;
if select='exit'  then slct:=3;
if select='clear' then slct:=4;
     case slct of
          1: add(f,t);
          2: show(f,t);
          3: begin clrscr; writeln('Exit...'); delay(2000) end;
          4: clrscr;
     end;
until slct=3;
end.