Что не так в программе в конце должен вывести какое число больше program primer; var a,b:integer; wrateln:; readln (a,b);

Приведем текст программы к более удобно читаемому виду

program primer;

  var a,b:integer;

   wrateln:;

   readln (a,b);

   if a>b then writeln(a) else writeln (b);

end.

Теперь видно, что в тексте нет оператора begin и есть ошибочный оператор wrateln.

Если  третью строку wrateln:; заменить на begin,  то программа будет работать.