Помогите составить программу на языке программирования Паскаль, которая бы…

program yourname; uses crt; var com: string; i: integer; beginwriteln ('Задайте значените программы.'); writeln ('Для того чтобы программа посчитала от 1 до 5 пропишите команду "go1".'); writeln ('Для того чтобы программа посчитала от 5 до 1 пропишите команду "go2".'); writeln ('Для того чтобы сказать спасибо программе — пропишите команду "go3".'); readln (com); If (com='go1') then beginwriteln (Программа считает от 1 до 5'); for i: =1 to 5 do writeln (i) endelse if (com='go2') then beginwriteln ('Программа считает от 5 до 1'); for i: =5 downto 1 do writeln (i) endelse if (com='go3') then beginwriteln ('Программа: Всегда рада вам помочь.'); endelse begin writeln ('Данной команды не существует либо вы ввели команду вместе с ковычками.'); writeln ('Пожалуйста! Перезапустите программу.') end end.