M-восраст человека , k- ( от 1 до 99)- любой число ,ввелся число m и k " мой восраст надо быть болшим (меньшим)" надо

Program MIN;Var A, I : Integer;Min : Integer;BeginMin:=1;For I:=1 to 99 doBeginWrite(\'Введите число\');Readln(A);If A < Min then Min:=A;end;Writeln(\'MIN=\',Min);Readln;end.ИЛИProgram mb;uses crt;var a,b:integer;beginclrscr;writeln (\'Введите a,b\');readln(a,b);if a>b then writeln(\'большим является a\')else writeln (\'большим является b\');rеаdln;еnd.ИЛИvar a:array[1..99] of integer;min:integer;i:integer;beginwriteln(\'введите 99 элементов массива\');min:=MAXINT;readln( a[i] );if min>a[i] then min:=a[i];end;writeln( \'Максимальный элемент массива = \', min );end.