Задача 2 Урок 14.1

Задача 2 Урок 14.1:

Напишите процедуру, которая получает на вход два целых числа и выводит на экран то, которое больше.

var a,b:integer;
procedure podprog(c,d:integer);
begin
  if c>d then
    writeln('a bolshe=',' ',a)
  else
    writeln('b bolshe=',' ',b);
    readln();
end;
begin
   writeln('vvedite a');
   readln(a);
   writeln('vvedite b');
   readln(b);
   podprog (a,b);
end.

Вывод консоли:

vvedite a
1
vvedite b
29
b bolshe= 29