Процедура с переменной булева типа и условный оператор - PascalABC.NET

Формулировка задачи:

Исправьте на ошибки

                    Листинг программы
                
 
                        
                          
                    
uses crt;
var man : integer;
procedure pause (msg:boolean);
begin
write (msg); readln;
end;
begin 
writeln ('Если 1, то по-русски, если нет, то по-английски'); readln (man);
if (man=1) then (msg=true) else (msg=false);
pause (true); ('Нажмите Enter');
pause (false); ('Press Enter')
end..

Я изменил код. На девятой строке пишет : "Неизвестное имя msg'.

                    Листинг программы
                
 
                        
                          
                    
uses crt;
var man : integer;
procedure pause (msg:boolean);
begin
write (msg); readln;
end;
begin 
writeln ('Если 1, то по-русски, если нет, то по-английски'); readln (man);
if (man=1) then (msg=true) else (msg=false);
if msg=true then writeln ('Нажмите Enter') else writeln ('Press Enter');
end.

Решение задачи: «Процедура с переменной булева типа и условный оператор»

Листинг программы

var man : integer;
    msg:boolean;
begin 
writeln ('Если 1, то по-русски, если нет, то по-английски'); readln (man);
if man=1 then msg:=true else msg:=false;
if msg then writeln ('Нажмите Enter') else writeln ('Press Enter');
end.

Объяснение кода листинга программы

Объявлены две переменные: man типа integer и msg типа boolean.
Выводится сообщение с предложением выбрать язык ввода (1 - русский, 2 - английский).
Происходит чтение значения переменной man.
Переменная msg инициализируется в зависимости от значения переменной man. Если man равно 1, то msg становится true, иначе msg становится false.
Выводится сообщение для подтверждения ввода. Если msg равно true, то выводится Нажмите Enter, иначе выводится Press Enter.