Помогите исправить ошибку

begin
textcolor(white);
 
textcolor(black);
gotoxy(21,10);
write('Введите название города : ');
readln(from);
begin
FOR r:=1 TO length(value) DO
IF value[r] IN ['A'..'Z']
THEN value[r]:=chr(ord(value[r])-ord('A')+ord('a'));
buf.from:=value;
end;
k:=0;
repeat
read(ff,buf);
if buf.from=from then
begin
clrscr;
writeln(' <<<Вывод результата поиска зарегистрированных на экран>>>');

Program xa;
var
  s:string;
  i:integer;
begin
  Writeln('VVedute naumenoVaNie');
  readln(S);
  for i:=1 to length(s) do
    if s[i] in ['A'..'Z'] then
      s[i]:=chr(ord(s[i])+32);
  Writeln(s);
  readln
end.

Program laba2;
VAR x,y:real;
const a=0.054;
begin
   write('enter x=');
     readln(x);
        if(x<>0)then
                  if(sin(x)/(x))>=0
                   then if(a*x*sin(a*x))<>0
                     then if(1+cos(a/x))/(a*sin(a*x))>=0
                       then if(sin(x)*(sqrt((1+cos(a/x))/(a*x*sin(a*x))>0
                         then begin
                              y:=ln(sin(x)*(sqrt((1+cos(a/x))/(a*x*sin(a*x)))))+(sqrt(sin(x)/x));
                           writeln('y=',y);
                               end
                         else writeln('ln otr. chisla')
                       else writeln('koren otr. chisla')
                      else writeln('delenie na 0')
                     else writeln('koren otr. chisla')
                    else writeln('delenie na 0');
                     end.

if sin(x)*sqrt(1+cos(a/x))/(a*x*sin(a*x))>0 then

writeln('y=',y:0:5);

Program laba2;
uses crt;
VAR x,y:real;
const a=0.054;
begin
clrscr;
write('enter x=');
readln(x);
if(x<>0)then
 if(sin(x)/(x))>=0 then 
  if(a*x*sin(a*x))<>0 then
    if(1+cos(a/x))/(a*sin(a*x))>=0 then 
      if sin(x)*sqrt(1+cos(a/x))/(a*x*sin(a*x))>0 then
       begin
         y:=ln(sin(x)*(sqrt((1+cos(a/x))/(a*x*sin(a*x)))))+(sqrt(sin(x)/x));
         writeln('y=',y:0:5);
        end
     else writeln('ln otr. chisla')
    else writeln('koren otr. chisla')
  else writeln('delenie na 0')
 else writeln('koren otr. chisla')
else writeln('delenie na 0');
readln
end.