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

unit ControlSisi;

interface
procedure Sisi (pole:string; var znachenie:Char);
procedure XEXE (prostr: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: string; var a:Boolean);
begin
if (prostr='-')
or ((Pos('-',prostr)<>0)and(Pos('-',prostr)<>1))
or (prostr='')
then
begin
a:=False;
end
else
a:=True ;
end;

end.