"Повторно объявленный идентификатор s1"

program Work2;
{Вариант 16: b/a+61, если a>b
         X=  -5,     если a=b
            (b-a)/b, если a<b
            }
Uses CRT;
Const
 inv1='Повторите ввод';
 inv2='Деление на ноль!!!!!!! ';
 inv3='Результат ';
 inv4='выходит за диапазон [-32768..32767]!!!!';
 inv5='Вводимое значение ';
 invA='A';
 invB='B';
Label L1,L;
var
 a,b,x : Integer;
 ch : Char;
 x1 : Real;
 s1 : String;
 aL :Real;
s1 : String;
                     {Главная программа}
begin
 Repeat
 ClrScr;
 Writeln('Вариант 16');
 Writeln(' b/a+61, если a>b');
 Writeln(' X=  -5, если a=b');
 Writeln('(b-a)/b, если a<b');
 L1:
{Ввод исходного значения переменных а и b с проверкой на
область
допустимых значений}
Write('Введите значение '+invB,'===>');
 Readln(aL);
 if (aL>=-32768)and(aL<=32767) then b:=trunc(aL)
 else
 Begin
 s1:=inv5+inv4;
 Writeln(s1);
 Writeln(inv1);
 goto L1;
 End;
L: Write('Введите значение '+invA,'===>');
 Readln(aL);
 if (aL>=-32768)and(aL<=32767) then a:=trunc(aL)
 else
 Begin
 s1:=inv5+inv4;
 Writeln(s1);
 Writeln(inv1);
 goto L;
 End;
{Вычисление значения X }
if b>a then x1:=a+61*b
else if a=b then x1:=-5
 else if a=0 then
 Begin
 s1:=inv2+inv1;
 Writeln(s1);
 goto L1;
 End
 else x1:=(b-a)/b;
x:=trunc(x1);
 Writeln('x='x)
 Writeln('x=',x)
 Writeln('Опять? (y/n)');
 ch:=ReadKey;
 Until (ch='n') or (ch='N');
end.

 s1 : String; { ----- вот первый раз ----- }
 aL :Real;
s1 : String; { ----- а вот - второй ----- }