Помогите пожалуйста! Составить блок-схему и программу, которая большее из двух произвольных чисел возводит в квадрат, а меньшее увеличивает на единицу.

Program z1;
var
a,b,c,d:integer;
begin
writeln(Введите число a и число b);
readln(a,b);
c:=sqr(max(a,b));
d:=min(a,b)+1;
writeln(Первое число ,c,, второе число ,d);
end.

Исправил