Исправление ошибки в готовом коде - Delphi - Ответ 7285768

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;
 
type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Memo1: TMemo;
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var a:array [1..30] of integer;
i,n,k,z:integer;
flag:boolean;
begin
k:=0;
n:= StrToInt(Edit1.Text);
for i:=n-1 downto 2 do
if n mod i=0 then
begin
k:=k+1;
a[k]:=i;
end;
 
 memo1.lines.add('n='+floatToStr(n))
for i:=n-1 downto 2 do
Begin
for z:=1 to k do
if i mod a[z]=0 then
flag:=true
else
flag:=false;
if flag=false then
 memo1.lines.add('i='+floatToStr(i))
end;
 
end;
 
end.