по информатике программа lazarus

нужно исправить ошибки

Сама программа имеет вот такой вид

var x1,x3,result:real; - отсутствует x2

begin

x1=Edit1.Text; - отсутствует двоеточие

x2:=Edit2.Text;

x3=Edit3.Text;  - отсутствует двоеточие

result:=x1+x2+x3;

Edit4.text:=result;

result=x1*x2*x3;

Edit5:=result: - вместо точки с запятой стоит двоеточие в конце выражения

end: - вместо точки стоит двоеточие в конце выражения

Если ошибки остануться, пиши в комментарий, разберёмся