Помогите пожалуйста Даны 3 числа a,b,c. Определить минимальное из них. Если минимальное число окажется отрицательным , то определить количество отрицательных чисел , а иначе все положительные числа заменить на отрицательные . Написать программу и блок схему

Program project1;
uses
crt,math;
var  s:real;  i,j,f:real;  a:integer;
begin 
writeln(vvedite 1 chislo );readln(i);
  writeln(vvedite 2 chislo );readln(j); 
 writeln(vvedite 3 chislo );readln(f); 
 s:=i; 
 if j if f if s begin  
  if i  if j  if f  writeln(kolichestvo otricatelnix ,a:2);
  end 
 else  
begin  
  if i>0 then i:=i*-1;
  if j>0 then j:=i*-1;
  if f>0 then f:=i*-1; 
 end; 
 writeln(min chislo ,s:2:0); 
 readln;
end.