Пишет Операция '-' не применима к типу string Что не так делаю?

var a, b, c:integer;

Begin

writeln ('Введите первое число');

writeln ('Введите второе число');

c:=a+b; writeln ('a=,'+'b=,');

c:=a-b; writeln ('a=,'-'b=,');

c:=a*b; writeln ('a=,'*'b=,');

c:=a/b; writeln ('a=,'/'b=,');

End.

Вы пытаетесь применить арифметические операции к строковому типу.

Да и программа не до конца сделана - нет даже ввода значений.

var a, b:integer;

Begin

writeln ('Введите первое число: '); Readln (a);

writeln ('Введите второе число'); Readln (b);

writeln ('a + b = ', a+b);

writeln ('a - b = ', a-b);

writeln ('a * b = ', a*b);

writeln ('a / b = ', a/b);

End.