Ayuda

[Givanti]

Hola bueno en el colegio me pidieron hacer un programa que me pidiera valores y me de resultado eso creo ya esta bien , bueno tambien me pidieron que hciiera una parte donde me de el valor de 3 lados y me ponga que tipo d etraingulo es si equilatero , isoceles o escaleno , bueno es ahi donde tengo mi error espero me puedan ayudar anexo el codigo para ver si voy bien :

Código Delphi [-]

{$APPTYPE CONSOLE}
uses
  SysUtils;

var
 opc,tabla,x,respu,triangulo:integer;
   lado1,lado2,lado3:real;
   num1,num2,c,d,e,f,g,h,i,j:real;
 b:string;
begin
  { TODO -oUser -cConsole Main : Insert code here }
b:='si';
  while b= 'si' do
  begin
writeln('******CALCULOS*****');
writeln('*****1)TABLAS******');
writeln('******2)OPERACIONES BASICAS****');
writeln('*****3)TRIANGULOS*****');
writeln('*****QUE OPCION DESEAS***');
readln(opc);
if opc=1 then
begin
writeln('****TABLAS****');
writeln('QUE TABLA DESEAS CALCULAR----->');
readln(tabla);
for x:=1 to 10 do
begin
respu:=tabla*x;
writeln('=',respu);
end;
writeln('****DESEAS OTRA OPCION--->');
readln(b);
end;
if opc=2 then
begin
writeln('*****OPERACIONES BASICAS***');
writeln('DAME UN NUMERO--->');
readln(num1);
writeln('DAME OTRO NUMERO----->');
readln(num2);
c:=num1+num2;
writeln('LA SUMA ES--.>',c:2:2);
d:=num1-num2;
writeln('LA RESTA ES---->',d:2:2);
e:=num1*num2;
writeln('LA MULTIPLICACION ES---->',e:2:2);
f:=num1/num2;
writeln('LA DIVISION ES---->',f:2:2);
writeln('DESEAS OTRA OPCION---->');
readln(b);
end;
if opc=3 then
begin
writeln('*****TRIANGULOS****');
writeln('VALOR DE LADO1--->');
readln(lado1);
writeln('VALOR DE LADO2---->');
readln(lado2);
writeln('VALOR DE LADO3---->');
readln(lado3);
end;
if (lado1=lado2) and (lado2=lado3)  then
begin
writeln('**EL TIPO DE TRIANGULO ES EQUILATERO**');
end
if(lado1=lado2)and(lado2=lado3)or(lado1=lado3)then < --- aqui me sale missing operator semicolon

begin
writeln('***EL TIPO DE TRIANGULO ES ISOCELES***');
end
else
begin
writeln('****EL TIPO DE TRIANGULO ES ESCALENO***');
writeln('DESEAS OTRA OPCION---->');
readln(opc);
end;
end;
readln;
end.