błąd programu

jestem zielony w programowaniu i pisze swoje pierwsze programy. Prosze o pomoc. Nieiwiem gdzie zrobiłem błąd. programuje w Dev-Pascal. pisze ze błąd gdzieś przy "else". Wydaje mi sie ze wszystko dobrze napisałem

program jeden;
uses crt;
var
wybor:byte;
liczba_1, liczba_2 : integer;
suma, roznica, mnozenie, dziel, pier : real;

begin

writeln('to jest program obliczajacy sume dwoch liczb');
gotoxy(7,6);
write('podaj pierwsza liczb x= ');
read(liczba_1);
gotoxy(7,8);
write('podaj druuga liczbe y=');
readln(liczba_2);

gotoxy(5,3);
write('jesli chcesz sumowac napisz nacisnij 1 ');
gotoxy(5,5);
write('jesli chcesz odejmowac nacisnij 2');
gotoxy(5,7);
write('jesli chcesz mnozyc nacisnij 3');
gotoxy(5,9);
write('jesli chcesz dzielic nacisnij 4');
gotoxy(5,11);
write('jesli chcesz pierwiastkowac nacisnij 5');

read(wybor);
if wybor=1 then
begin
textcolor(green);
suma := liczba_1 + liczba_2 ;
gotoxy(10,8);
writeln('wynik obliczenia X + Y =', suma2 );
end
else
if wybor=2 then
begin
textcolor(blue);
roznica := liczba_1 - liczba_2;
gotoxy(10,8);
writeln('wynik obliczenia x-y=',roznica2);
end
else
if wybor=3 then
textcolor(red);
mnozenie := liczba_1 * liczba_2;
writeln('wynik obliczenia x*y=',mnozenie2);
end
else
if wybor=4 then
textcolor(red);
gotoxy(10,8);
dziel := liczba_1 / liczba_2;
writeln('wynik obliczenia x/y=',dziel2);
end
else
if wybor=5 then
textcolor(blue);
gotoxy(10,8);
pier := Sqrt( Sqrt(liczba_1) + sqrt(liczba_2));
writeln('wynik obliczenia pierwiastek z x i pierwiastek z y', pier2);
end
else
writeln('wybor nieprawidlowy');

readln;
end.

Słyszałeś kiedyś o FORMATOWANIU KODU???

program jeden;

uses 
  crt;

var
  wybor:byte;
  liczba_1, liczba_2 : integer;
  suma, roznica, mnozenie, dziel, pier : real;

begin

  writeln('to jest program obliczajacy sume dwoch liczb');
  gotoxy(7,6);
  write('podaj pierwsza liczb x= ');
  read(liczba_1);
  gotoxy(7,8);
  write('podaj druuga liczbe y=');
  readln(liczba_2);

  gotoxy(5,3);
  write('jesli chcesz sumowac napisz nacisnij 1 ');
  gotoxy(5,5);
  write('jesli chcesz odejmowac nacisnij 2');
  gotoxy(5,7);
  write('jesli chcesz mnozyc nacisnij 3');
  gotoxy(5,9);
  write('jesli chcesz dzielic nacisnij 4');
  gotoxy(5,11);
  write('jesli chcesz pierwiastkowac nacisnij 5');


  read(wybor);
  if wybor=1 then
  begin
    textcolor(green);
    suma := liczba_1 + liczba_2 ;
    gotoxy(10,8);
    writeln('wynik obliczenia X + Y =', suma:0:2 );
  end
  else
    if wybor=2 then
    begin
      textcolor(blue);
      roznica := liczba_1 - liczba_2;
      gotoxy(10,8);
      writeln('wynik obliczenia x-y=',roznica:0:2);
    end
    else
      if wybor=3 then
        textcolor(red);
  mnozenie := liczba_1 * liczba_2;
  writeln('wynik obliczenia x*y=',mnozenie:0:2);
end //?????????????????????????????????????????????????????
else
if wybor=4 then
textcolor(red);
gotoxy(10,8);
dziel := liczba_1 / liczba_2;
writeln('wynik obliczenia x/y=',dziel:0:2);
end
else
if wybor=5 then
textcolor(blue);
gotoxy(10,8);
pier := Sqrt( Sqrt(liczba_1) + sqrt(liczba_2));
writeln('wynik obliczenia pierwiastek z x i pierwiastek z y', pier:0:2);
end
else
writeln('wybor nieprawidlowy');

readln;
end.