2 сем / 7 лаба / 3 задание / ControlSisi

unit ControlSisi;

interface
 procedure Sisi (pole:string; var znachenie:Char);
 procedure XEXE (prostr,prostr2:string; var a:Boolean);

implementation
procedure Sisi (pole:string; var znachenie:Char);
begin
   case Znachenie of
   '0'..'9':;
   #8:;
   ',' : if pos(',',pole)<>0 then Znachenie:=#0;
   '-' :if Pos('-',pole)<>0 then znachenie:=#0;
   else znachenie:=#0;
end;
end;

procedure XEXE (prostr,prostr2: string; var a:Boolean);
begin
  if (prostr='-')
  or ((Pos('-',prostr)<>0)and(Pos('-',prostr)<>1))
   or ((Pos('-',prostr2)<>0)and(Pos('-',prostr2)<>1))
    or (prostr='')or(prostr2='')
  then
      begin
      a:=False;
      end
        else
        a:=True ;
end;

end.