Даны натуральное число n, целые числа A1, ., An. Заменить все, большие 7, элементы последовательности числом 7

iQty:=0; //Кол-во эл-тов > 7
for i:=1 to n do 
  if a[i]>7 then begin
     a[i]:=7;
     inc(iQty);
  end;

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
const
  n = 10;
var
  i, iQty: integer;
  a: array [1..n] of integer;
  s: string;
begin
  randomize;
  Memo1.Clear;
  s := '';
  for i := 1 to n do
  begin
    a[i] := random(n) + 1;
    s := s + IntToStr(a[i]) + ' ';
  end;
  memo1.Lines.Add(s);
  s := '';
  iQty := 0; //Кол-во эл-тов > 7
  for i := 1 to n do
  begin
    if a[i] > 7 then
    begin
      a[i] := 7;
      inc(iQty);
    end;
    s := s + IntToStr(a[i]) + ' ';
  end;
  memo1.Lines.Add(s);
  ShowMessage(IntToStr(iQty));
end;
 
end.