Электронный словарь по вычислительной технике

[imi76]

Здравствуйте. Пытаюсь создать программу управления словарем. Она должна предусматривать сбор, хранение и выдачу данных по мере необходимости. В меню 5 пунктов. Помогите доработать хотя бы часть (например, 1 и 3 пункт). Спасибо большое!

program slovar;
uses crt;
label 10,20,30;
type
    matem=record
    nazv:string;
    theor:string;
end;
var
ma:matem;
f:file of matem;
fname:string;
n:integer;
k:byte;
begin
clrscr;
writeln('vvedite nazvan faila');
readln(fname);
assign(f,fname);
10:writeln('Menu');
writeln('1.Sozdanie slovarya');
writeln('2.Redaktirovanie slovarya');
writeln('3.Zapros po nazvaniu');
writeln('4.Prosmotr vsego faila');
writeln('5.Vixod');
writeln;
writeln('Vvedite nomer pynkta: ');
readln(n);
if n=1 then
begin
rewrite(f);
clrscr;
write('vvedite nazvanie: ');
readln;
write('vvedite opredelenie: ');
readln;
write(f,ma);
close(f);
goto 10;
end;
if n=2 then
begin
clrscr;
assign(f,'slovar po VT');
reset(f);
writeln('vvedite nazvanie');
readln;
writeln('vvedite theor');
readln;
close(f);
goto 10;
end;
if n=5 then
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.