Matematické Fórum

Zdravím,
mám zadání zhruba takto:

Na vstupu máte dvojice celočíselných hodnot, zjistěte, která hodnota je větší.
Ukončení je dvojicí 0 0.
Vypiš nejmenší hodnotu z B a počadové číslo dvojic, ve kterých bylo A > B.

S tím posledním si nevím rady, jinak jsem to spáchal cca takto:


uses crt;
var a,b,PD,min :integer;

begin


min:=maxint;
PD:=0;
writeln('zadej A');
readln(a);
writeln('zadej B');
readln(b);

while ((a<>0) or (b<>0)) do

begin

if a>b then writeln('A je větší jak B')
       else writeln('A není větší jak B');

if b<min then min:=b;


readln(a,b);
end;
writeln('minimální hodnota z B: ' ,min);

readln;
end.