Проблемы с проверкой

[AnthonyB]

Ребят,помогите,решил поучить паскаль. Написал калькулятор,решает все красиво и даже проверки есть.Но там проблемы со второй проверкой.
Помогите ,пожалуйста!

program calculate;
uses crt;
var per1,per2,res:real;
func:char;
pos,pos1:boolean;

begin
pos:=true;
pos1:=true;
writeln('============================Калькулятор============================');
writeln;
write('Введите первое число:');read(per1);
writeln;
write('Введите знак:');     read(func);
writeln;
write('Введите второе число:');read(per2);
writeln;
read;
case func of
'+': res:=per1+per2;
'-': res:=per1-per2;
'/': res:=per1/per2;
'*': res:=per1*per2;
else begin write('You have written false equality');
pos:=false;end;
end;
if func='/'

 then if per2=0
               then pos1:=false;writeln('Actually,i am not sure,that it is possible to divide by zero');


writeln;
if pos=true and pos1=true
then
begin
write(per1,func,per2,'=',res);
read;
end;

end.

[Mad_Cat]

program calculate;
uses crt;
var per1,per2,res:real;
func:char;
pos,pos1:boolean;

begin
pos:=true;
pos1:=true;
writeln('========================== ==Калькулятор====================== ======');
writeln;
write('Введите первое число:');read(per1);
writeln;
write('Введите знак:'); read(func);
writeln;
write('Введите второе число:');read(per2);
writeln;
read;
case func of
'+': res:=per1+per2;
'-': res:=per1-per2;
'/':begin if per2=0
then begin
 pos1:=false;
 writeln('Actually,i am not sure,that it is possible to divide by zero');
 end
 else
  res:=per1/per2;
  end;
'*': res:=per1*per2;
else begin write('You have written false equality');
pos:=false;end;
end;
writeln;
if pos=true and pos1=true
then
begin
write(per1,func,per2,'=',res);
read;
end;
end.