С клавиатуры вводят строку 'город минск' в нижнем регистре. Составьте программу, которая...

С клавиатуры вводят строку 'город минск' в нижнем регистре. Составьте программу, которая преобразовывает название города к верхнему регистру и выводит: 'город МИНСК'.

 Я тут немного отсебятины добавил, что бы программа не слетала если что-то нерпавильное вводиш))

var
a: string;
b: integer;


begin
writeln ('Введите строку');
read (a);
if (a='город минск')
then writeln ('город МИНСК')
else
begin
writeln ('введите "город минск", 1-продолжить, 0-выйти');
read (b);
end;
while (b = 1) do
begin
writeln ('Введіте строку');
read (a);
if (a='город минск')
then writeln ('город МИНСК')
else
begin
writeln ('введите "город минск", 1-продолжить, 0-выйти');
read (b);
end;
end;

end.