Даны два числа. Найти наименьшее из их. (написать программку на Паскале)

program zz1;

var
n, k: integer;

begin
writeln(Введите n); //вводим 1-ое данное число
read(n);
writeln(Введите k); //вводим 2-ое данное число
read(k);
if n = k then write(числа одинаковы ) //проверяем, если числа одинаковы, то выводим ответ
else
if n gt; k then write(Наименьшее число = , k) else write(Меньшее число = , n); //проверяем, если 1-ое больше второго, то выводим 2-ое, по другому 1-ое
end.