Найти и сравнить самые большие и наименьшие значения линейных массивов А и С

program MaxMin;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
const n = 10;
Var A, B : array[1..n] of real;
    MaxA, MaxB, MinA, MinB : real;
    i : integer;
begin
  for i:=1 to n do
    begin
      A[i]:=1000*Random;
      B[i]:=1000*Random;
    end;
  writeLn('Array A:');
  for i:=1 to n do write(A[i]:8:4,'||');
  writeLn;
  writeLn('Array B:');
  for i:=1 to n do write(B[i]:8:4,'||');
  writeLn;
  MaxA:=A[1]; MinA:=A[1];
  MaxB:=B[1]; MinB:=B[1];
  for i:=2 to n do
    begin
      if MaxA<A[i] then  MaxA:=A[i];
      if MinA>A[i] then  MinA:=A[i];
      if MaxB<B[i] then  MaxB:=B[i];
      if MinB>B[i] then  MinB:=B[i];
    end;
  if MaxA>MaxB then WriteLn('Maximum A ',MaxA:8:4,' > maximum B ',MaxB:8:4)
  else
    if MaxA<MaxB then WriteLn('Maximum A ',MaxA:8:4,' < maximum B ',MaxB:8:4)
    else WriteLn('Maximum A ',MaxA:8:4,' = maximum B ',MaxB:8:4);
 
  if MinA>MinB then WriteLn('Minimum A ',MinA:8:4,' > minimum B ',MinB:8:4)
  else
    if MinA<MinB then WriteLn('Minimum A ',MinA:8:4,' < minimum B ',MinB:8:4)
    else WriteLn('Minimum A ',MinA:8:4,' = minimum B ',MinB:8:4);
  readln;
end.

unit UnitMaxMin;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Button1: TButton;
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
const n = 10;
Var A, B : array[1..n] of real;
    MaxA, MaxB, MinA, MinB : real;
    i : integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  for i:=1 to n do
    begin
      A[i]:=1000*Random;
      B[i]:=1000*Random;
    end;
  for i:=1 to n do StringGrid1.Cells[i-1,0]:=FormatFloat('0.0000',A[i]);
  for i:=1 to n do StringGrid1.Cells[i-1,1]:=FormatFloat('0.0000',B[i]);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  MaxA:=A[1]; MinA:=A[1];
  MaxB:=B[1]; MinB:=B[1];
  for i:=2 to n do
    begin
      if MaxA<A[i] then  MaxA:=A[i];
      if MinA>A[i] then  MinA:=A[i];
      if MaxB<B[i] then  MaxB:=B[i];
      if MinB>B[i] then  MinB:=B[i];
    end;
  if MaxA>MaxB then
    StaticText1.Caption:='Maximum A '+FormatFloat('0.0000',MaxA)+' > maximum B '+FormatFloat('0.0000',MaxB)
  else
    if MaxA<MaxB then
      StaticText1.Caption:='Maximum A '+FormatFloat('0.0000',MaxA)+' < maximum B '+FormatFloat('0.0000',MaxB)
    else
      StaticText1.Caption:='Maximum A '+FormatFloat('0.0000',MaxA)+' = maximum B '+FormatFloat('0.0000',MaxB);
 
  if MinA>MinB then
    StaticText2.Caption:='Minimum A '+FormatFloat('0.0000',MinA)+' > minimum B '+FormatFloat('0.0000',MinB)
  else
    if MinA<MinB then
      StaticText2.Caption:='Minimum A '+FormatFloat('0.0000',MinA)+' < minimum B '+FormatFloat('0.0000',MinB)
    else
      StaticText2.Caption:='Minimum A '+FormatFloat('0.0000',MinA)+' = minimum B '+FormatFloat('0.0000',MinB);
end;
 
end.