Народ подскажите где у меня ошибка, почему там восклицательный знак? если что это develnext, код на таймер к прогресс бара

Var l, s, v, symbol: string; p, so, vc: real; r, h: integer; begin  writeln('введите r'); readln(r); writeln('введите h'); readln(h);   l: = 'l';     // s: = 's';   // v: = 'v'; // можно конечно обойтись и без них writeln('введите символ'); readln(symbol);   if symbol = l then begin  p: = 2*pi*r;   writeln('длина окружности =  ',p); end;   if symbol = s then begin  so: = pi * sqr(r);   writeln('площадь круга  =  ',so);   end;   if symbol = v then begin  vc: = pi * sqr(r) * h;   writeln('объем цилиндра =  ',vc); end; readln; end;

1.само число: 101001111101110010110100 101001111101110010110101 101001111101110010110111 101001111101110010111111 101001111101110011111111 101001111101110111111111 101001111101111111111111 101001111111111111111111 101011111111111111111111 101111111111111111111111 111111111111111111111111 последующие десять чисел. 2.сравните в десятиричной, затем переведите в двоичную. 3.а.1000010011 б.1100010000 в.10111101011 г.1100111001 д.10011011100 е.1110111101 ж.100100100110 з.1011001000 и.1000101011 могла ошибиться в наборе, так что перепроверьте. если не умеете переводить: делите число на 2 если есть остаток - пишите 1 если нет - 0 повторяете цикл. по окончанию (от числа должна остаться единица) пишите 1 и переворачиваете число.