При написании квадрат, круг, треугольник чтобы программа выдавала соответствующие фигуры - Pascal

При написании квадрат, круг, треугольник чтобы программа выдавала соответствующие фигуры. Не получается присвоить к тексту фигуру.

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

Repeat
 write('Фигура: ');readln(s);
 if s='квадрат' then
 Begin
   //рисуем квадрат
 End;
 //аналогично для других фигур
Until s='выход';

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

В цикле Repeat-Until считывается строка от пользователя.
Строка сохраняется в переменной s.
Если значение переменной s равно 'квадрат', то выполняется блок кода внутри блока Begin-End.
В блоке кода рисуется квадрат.
После выполнения блока кода, условие if проверяется снова.
Если значение переменной s все еще равно 'квадрат', то цикл повторяется.
Если значение переменной s равно 'выход', то цикл завершается.