Работа с файлами. Записи

[Pasha9]

Дан словарь терминов. Написать программу которая:
-Вводит новые записи
-читает файл в программу
-организует поиск по нужному полю
Вот мой вариант:

Program fizika;
uses crt;
const filename='C:\Pascal\ter.txt';
type
TTerminInfo=record
  r:string[16];
  t:string[15];
  d:string[50];
end;

var  f:file of TTerminInfo;
     act:byte;
     st:TTerminInfo;
     v:string [30];
     found:boolean;
procedure addzap;
begin
assign(f,filename);
reset(f);
if ioresult<>0 then rewrite(f);
seek(f,filesize(f));
with st do
 repeat
  write ('Vvedite razdel:  ');
  readln(r);
  if r=' ' then break;
  write ('Vvedite termin:  ');
  readln(t);
  if t=' ' then break;
  write ('Vvedite definition:  ');
  readln(d);

  write(f,st);
  until false;
  close(f);
  end;

procedure readtermin;
begin

assign(f,filename);
reset(f);
if ioresult=0 then
with st do
 repeat
writeln('Razdel:  ',r);
writeln('Termin:  ',t);
writeln('definition:  ',d);read(f,st);

until eof(f);
close(f);
end;

procedure findtermin;
var
t:string;
found:boolean;
st:TTerminInfo;
res:string;
begin
write('Vveditr termin:');
readln(res);
If t='' then exit;
assign (f,filename);
reset(f);
found:=false;
If Ioresult=0 then
with st do
while Not Eof(f) do
begin
read(F,st);
if res=t then begin
writeln('wu nawli ');
write (f,st);
end;
end;
close (f);
readln;
end;


Begin

clrscr;
writeln('Menu:');
writeln('1 Dobavit zapisi');
writeln('2 Chitat  slovar');
writeln('3 Poisk po terminu');
writeln('0 Vihod');
readln(act);
case act of
1:addzap;
2:readtermin;
3:findtermin;
0:halt;
end;
end.

Заранее спасибо!

[pomoshnic]

Вроди исправил.
Вот:

{$i-}
Program fizika;
uses crt;
const filename='C:\Pascal\ter.txt';
type
TTerminInfo=record
  r:string[16];
  t:string[15];
  d:string[50];
end;

var  f:file of TTerminInfo;
     act:byte;
     st:TTerminInfo;
     v:string [30];
     found:boolean;
procedure addzap;
begin
assign(f,filename);
reset(f);
if ioresult<>0 then rewrite(f);
seek(f,filesize(f));
with st do
 repeat
  write ('Vvedite razdel:  ');
  readln(r);
  if r=' ' then break;
  write ('Vvedite termin:  ');
  readln(t);
  if t=' ' then break;
  write ('Vvedite definition:  ');
  readln(d);
  write(f,st);
  Writeln('Dla vyxoda nagmite esc');
  act:=ord(readkey);
  if act=27 then break;
  until false;
  close(f);
  end;

procedure readtermin;
begin

assign(f,filename);
reset(f);
if ioresult=0 then
with st do
 repeat
writeln('Razdel:  ',r);
writeln('Termin:  ',t);
writeln('definition:  ',d);
writeln('----------------');
read(f,st);
until eof(f);
close(f);
readln;
end;

procedure findtermin;
var
st:TTerminInfo;
res:string;
begin
write('Vveditr termin:');
readln(res);
If res='' then exit;
assign (f,filename);
reset(f);
If Ioresult=0 then
with st do
while Not Eof(f) do
begin
read(F,st);
if st.t=res then begin
writeln('wu nawli ');
writeln('Razdel:  ',r);
writeln('Termin:  ',t);
writeln('definition:  ',d);
close(f);
readln;
exit;
end;
end;
close (f);
readln;
end;


Begin
repeat
clrscr;
writeln('Menu:');
writeln('1 Dobavit zapisi');
writeln('2 Chitat  slovar');
writeln('3 Poisk po terminu');
writeln('0 Vihod');
readln(act);
case act of
1:addzap;
2:readtermin;
3:findtermin;
0:halt;
end;
until false;
end.