while mach<>'S' do
begin
if mach='m' then
begin
writeln ('enter the sum of your buying');
readln (sum);
msum:=msum+sum;
i:=i+1;
writeln ('enter the department ');
readln (mach);
while (mach<>'m') and (mach<>'f') and (mach<>'S') do
begin
writeln ('you have error in typing, plz type in again');
writeln ('enter the department ');
readln (mach);
end;
end;
else if mach='f' then <--------------------- פה הוא עושה error in statement
begin
writeln ('enter the sum of your buying');
readln (sum);
fsum:=fsum+sum;
r:=r+1;
writeln ('enter the department ');
readln (mach);
while (mach<>'m') and (mach<>'f') and (mach<>'S') do
begin
writeln ('you have error in typing, plz type in again');
writeln ('enter the department ');
readln (mach);
end;
end;
end;