Вылетает программа при вводе любого слова

uses crt;
 
var a,b,itogo: integer;
s: string;
 
begin
writeln('Введите 2 числа.');
read(a);
read(b);
writeln('Чтобы сложить введите "сложить".');
writeln('Чтобы отнять введите "отнять".');
writeln('Чтобы умножить введите "умножить".');
writeln('Чтобы разделить введите "разделить".');
read(s); // на этой операции вылет, пробовал с readln тоже вылет
 
if s = 'сложить' then begin
itogo:=a+b;
write(itogo);
end
 
else
if s = 'отнять' then begin
itogo:=a-b;
write(itogo);
end
else
if s = 'умножить' then begin
itogo:=a*b;
write(itogo);
end
else
if s = 'разделить' then begin
itogo:=a div b;
write(itogo);
end
else
write('Неправильная операция.');
end.

begin
  var(a,b):=ReadLnInteger2('Введите 2 числа:');
  WriteLn('Чтобы сложить введите "сложить".');
  WriteLn('Чтобы отнять введите "отнять".');
  WriteLn('Чтобы умножить введите "умножить".');
  WriteLn('Чтобы разделить введите "разделить".');
  var s:=ReadLnString('Вводите:');
  case s of
    'сложить'  : $'{a}+{b}={a+b}'.Println;
    'отнять'   : $'{a}-{b}={a-b}'.Println;
    'умножить' : $'{a}*{b}={a*b}'.Println;
    'разделить': $'{a}:{b}={a/b}'.Println;
  else
    WriteLn('Неправильная операция.');
  end;
end.

var a,b,itogo: integer;
s: string;
begin
Writeln('Введите два числа:');
Readln(a, b);
Writeln('Введите слово "сложить", "вычесть", "умножить" или "разделить"');
Readln(s);
case s of
  'сложить' : Writeln(a+b);
  'вычесть' : Writeln(a-b);
  'умножить' : Writeln(a*b);
  'разделить' : Writeln(a/b);
end;
end.