Найти год выше, ниже или равный заданному (синтаксический анализатор)

uses crt;
Type library1 = record
author,book:string;
year,code,place:integer;
end;
Var
STR : text;
t : library1;
c:byte;
n:string;
 
//...........................//
procedure Print;
var n:string;               {Âûâîä çíà÷åíèé}
begin
write('Введите имя файла');
Readln(n);
assign(str, n);
reset(str);
while not eof(str) do
begin
readln(str,t.code);
readln(str,t.author);
readln(str,t.book);
readln(str,t.year);
readln(str,t.place);
writeln(t.code,'  ',t.author,'  ',t.book,'  ',t.year,'  ',t.place);
end;
close(str);
readln
End;
//............................//
 
Procedure Write1(var n:string);               {Ââîä çíà÷åíèé}
Var count,c:integer;
begin
writeln('Введите имя файла');
Readln(n);
assign(str, n);
rewrite(str);
Repeat
begin
write('Введите шифр: ');
readln(t.code);
writeln(str,t.code);
write('Введите автора: ');
readln(t.author);
writeln(str,t.author);
write('Введите название книги: ');
readln(t.book);
writeln(str,t.book);
write('Введите год издания: ');
readln(t.year);
writeln(str,t.year);
write('Введите номер полки: ');
readln(t.place);
writeln(str,t.place);
writeln('Продолжить ввод 1-да 2-нет');
readln(C);
end;
until C>1;
close(str);
end;
//.............................//
Procedure YearM(n: string; k: real);
Var t:library1;
x:boolean;
Begin
Assign(str,n);
Reset(str);
x:=true;
While Not(Eof(str)) do
Begin
Read(str,t.year);
If t.year>k then
begin
WriteLn('Книги изданные позже заданного года: ',t.code, ': ',t.author, ': ',t.book,' ',t.year,' ',t.place);
x:=false;
end;
end;
If x=true then WriteLn('Таких книг нет.');
Close(str);
End;
 
Procedure Yearl(n: string; k: real); 
Var t:library1;
x:boolean;
Begin
Assign(str,n);
Reset(str);
x:=true;
While Not(Eof(str)) do
Begin
Read(str,t.year);
If t.year<k then
begin
WriteLn('Книги изданные раньше заданного года: ',t.code, ': ',t.author, ': ',t.book,' ',t.year,' ',t.place);
x:=false;
end;
end;
If x=true then WriteLn('Таких книг нет.');
Close(str);
End;
 
Procedure YearP(n: string; k: real); 
Var t:library1;
x:boolean;
Begin
Assign(str,n);
Reset(str);
x:=true;
While Not(Eof(str)) do
Begin
Read(str,t.year);
If t.year=k then
begin
WriteLn('Книги изданные в заданный год: ',t.code, ': ',t.author, ': ',t.book,' ',t.year,' ',t.place);
x:=false;
end;
end;
If x=true then WriteLn('Таких книг нет.');
Close(str);
End;
 
//.............................//
Procedure Analizator;
Var n,s,year:string; 
i,j,p,r:integer;
l,k:real;
Begin
Write('Введите имя файла: ');
Readln(n);
Write('Введите знак: ');
Readln(s);
If Pos('>',s)<>0 then
begin
p:=Pos('>',s);
year:=Copy(s,p+1,Length(s));
Val(year,k,r);
YearM(n,k);
end
else
If Pos('<',s)<>0 then
begin
p:=Pos('<',s);
year:=Copy(s,p+1,Length(s));
Val(year,k,r);
YearL(n,k);
end
else
If Pos('=',s)<>0 then
begin
p:=Pos('=',s);
year:=Copy(s,p+1,Length(s));
Val(year,k,r);
YearP(n,k)
end
else
WriteLn('Îøèáêà');
end;
 
//............................//
 
//............................//
var
p,f: integer;
begin
writeln;
repeat
Writeln('Выберите действие:');
Writeln('Просмотр файла:                     -1');
writeln('Создание файла:                     -2');
WriteLn('Просмотр книг 20-х годов            -3');
Writeln('Просмотр книг больше заданного года -4');
Writeln('Просмотр книг меньше заданного года -5');
Writeln('Просмотр книг с заданным годом      -6');
WriteLn('Выход                               -0');
readln(f);
clrscr;
 
 
Case f of
1:begin
print;
end;
2:begin
write1(n);
end;
3:begin
analizator;
end;
 
end;
until not(f in[1..6]);
end.

readln(str,s);
val(s,t.year,code);//s:string, code:integer