M-восраст человека , k- ( от 1 до 99)- любой число

Program MIN;
Var A, I : Integer;
Min : Integer;
Begin
Min:=1;
For I:=1 to 99 do
Begin
Write(Введите число);
Readln(A);
If A lt; Min then Min:=A;
end;
Writeln(MIN=,Min);
Readln;
end.
ИЛИ
Program mb;
uses crt;
var a,b:integer;
begin
clrscr;
writeln (Введите a,b);
readln(a,b);
if agt;b then writeln(великим является a)
else writeln (великим является b);
rеаdln;
еnd.
ИЛИ
var a:array[1..99] of integer;
min:integer;
i:integer;
begin
writeln(введите 99 частей массива);
min:=MAXINT;
readln( a[i] );
if mingt;a[i] then min:=a[i];
end;
writeln( Наибольший элемент массива = , min );
end.