Паскаль пишет ошибку

var a,b,c:integer;
begin
read (a);
b:= a+1;
c:=a-1;
write ('The next number for the number',a'is',b'.');
write ('The previous number for the number',a'is',c'.');
end.

пишет синтакс ошибка две штуки