A:= string - неправильная запись, равно не нужно,
а при присваивании переменной "а "значения 5 не хватает двоеточия. В общем запись будет вот такая:
a:string;
if a='хлеб' then a:=5;
Но в программе нельзя использовать данную схему, потому что
переменной а типа string не может быть присвоено целочисленное значение