{Finde die 7 Fehler, zur Not durch einen Test}

program 7 Fehler
uses crt;

var
   a = integer;
   b : integer;

Procedure1;
var
   a : integer;
begin
   a:=1;
   a:=a+b;
   b:=2*b;
   writeln('a=',a,'b=',b);
end;

procedure Procedure2;
var
   b : integer;

   Procedure1;
   a:=a+b;
   b:=2*b;
   Procedure1;
   writeln('a='a,'b=',b);
end;

begin
   a:=2;
   b:=2;
   Procedure2;
end;