Помогите сделать программу!!!!!

Var 
n,k:integer;
Begin 
Write('Введите n и k: '); 
Readln(n,k); 
if n = k then write(n) else
  if n>k then write('N - max') else write('K - max');
End.