Написать блок схему и программу которая запрашивает ввод 2-х чисел .к большему +1 ,а из меньшего -1.

Program Shema1;
uses  crt;
var  a, b, min, max: real;
begin 
clrscr; 
write('Vvedite a= ');readln(a); 
write('Vvedite b= ');readln(b); 
if a>b then max:=a+1 else max:=a; 
if b>a then min:=b-1 else min:=b; 
writeln('max+1= ', max:4:3); 
writeln('min-1= ', min:4:3); 
readln
end.