expected 缺少
Begin expected 缺少begin
这可能是由于你把program错误的写成了procedure这样就没有主程序了，或者在主程序的begin前面你就写了声明部分以外的代码。例如：
procedure a;
begin
  write(1)
end;
应该修改为
program a;
begin
  write(1)
end.
或者
procedure a;
begin
  write(1)
end;
begin
 a
end.

var i:byte;
i:=0;
begin
  for i:=1 to 5 do writeln(i)
end.
修改为：
var i:byte;
begin
  i:=0;
  for i:=1 to 5 do writeln(i)
end.