С клавиатуры вводится возраст пользователя и его пол(1-ж,2-м). Составьте программку, с

Var a, b: integer;
begin
     readln(a);
     if (a = 1) then write('Здрасти, Почетаемая ');
     if (a = 2) then write('Здрасти, Уважаемый ');
     if ((b gt; 25) and (a = 1)) then writeln('мадама');
     if ((b lt;= 25) and (a = 1)) then writeln('леди');
     if ((b gt; 25) and (a = 2)) then writeln('сэр');
     if ((b lt;= 25) and (a = 2)) then writeln('господин');
end.

Слова только поменяйте, что ли...:)