про видеотеку

program videoteka;
uses crt;
type
vtek=record
nz:string;
god:string [4];
ganr:string;
stud:string;
rez:string;
ocen:real;
end;
var f1:
text;
v:vtek;
procedure m2; Forward;
{**************************************}
procedure vivod;{chtenie faila}
var v:vtek;
begin
clrscr;
assign(f1,'input.txt');
reset(f1);
while not eof(f1) do
begin
clrscr;
read(f1);
writeln(v.nz);
readln(f1);
writeln(v.god);
end;
readkey;
m2;
end;
{**************************************}
procedure vvod;{zapis' v fail}
var v:vtek;
begin
assign(f1,'input.txt');
append(f1);
with v do
begin
clrscr;
writeln('vvedite nazvanie');
readln(nz);
write(f1,nz);
writeln('vvedite god');
readln(god);
writeln(f1,god:10);
end;
append(f1);
close(f1);
m2;
end;
{**************************************}
procedure m1;
var key:char;
a:array[1..2] of string;
i:integer;
begin
clrscr;
gotoxy(20,6);
writeln;
a[1]:='1 - nachalo raboti';
a[2]:='2 - vihod iz programmy';
for i:=1 to 2 do
begin
gotoxy(35,7);
write('VIDEOTEKA');
gotoxy(27,9+i);
write(a[i]);
end;
key:=readkey;
case key of
'1': m2;
'2': exit;
end;
end;
{*******************************************}
procedure m2;
var key:char;
a:array[1..6] of string;
i:integer;
begin
clrscr;
a[1]:='1 - sozdat';
a[2]:='2 - vivod';
a[3]:='3 - redaktirovanie';
a[4]:='4 - udalenie';
a[5]:='5 - nazad';
a[6]:='6 - vihod iz programmy';
for i:=1 to 6 do
begin
gotoxy(35,7);
write('MENU');
gotoxy(27,9+i);
writeln(a[i]);
end;
key:=readkey;
case key of
'1': vvod;
'2': vivod;
'3': write('menu2');
'4': write('exit');
'5': m1;
'6': exit;
end;
end;
{***************************************}
BEGIN
m1;
END.