Определить среди 3 введенных чисел(a,b,c) количество отрицательных и положительных. если больше положительных, то найти минимум из этих 3 чисел, а иначе найти максимум.(нужно нарисовать блок схему и написать программу в паскале)

Var a,b,c,m,k:integer;

begin  
readln(a,b,c);
if a>0 then inc(k) else dec(k);
if b>0 then inc(k) else dec(k);
if c>0 then inc(k) else dec(k);

if k>0 then begin
  if a<b then m:=a else m:=b;
  if m>c then m:=c;
end else begin 
    if a>b then m:=a else m:=b; 
    if m<c then m:=c;
end;
writeln(m);
end.