[Aristarh Dark]

kramar лови пример, под GUI сам перепишешь, должен же ты что-то сам сделать

Код:

program Project;
{$APPTYPE CONSOLE}
uses
  SysUtils;
const
  ValuesCount=7;
var
  ValArray:array [1..ValuesCount] of Integer;
  MaxVal,MinVal:Integer;
  Counter:integer;
begin
  MaxVal:=-2147483647;    //Min of type Integer
  MinVal:=2147483647;     //Max of type Integer
  //Read values
  WriteLn('Input values');
  for Counter:=1 to ValuesCount do
    begin
      WriteLn('Value '+IntToStr(Counter));
      ReadLn(ValArray[Counter]);
      if MaxVal<ValArray[Counter] then MaxVal:=ValArray[Counter];  //find max value
      if MinVal>ValArray[Counter] then MinVal:=ValArray[Counter];  //find min value
    end;
  WriteLn('Max value:'+IntToStr(MaxVal));
  WriteLn('Min value:'+IntToStr(MinVal));
  //Suspend
  ReadLn;
end.