Указать числа, у которых остаток от деления на M равен L

uses Windows;
..........................
begin
SetConsoleCP(1251);
SetConsoleOutPutCp(1251);

procedure TForm1.Button1Click(Sender: TObject);
var i,n,m,l,f,p1,p2,p3:integer;
a:array [1..10] of integer;
begin if (p1+p2+p3=0) then showmessage('Ошибка') else
val(edit1.text,n,p1);
val(edit2.text,m,p2);
val(edit3.text,l,p3);
randomize;
     for i:=1 to n do
          begin
a[i]:=random(10)+1;
         end;
     for i:=1 to n do
     if (l>=0) and (l<=m-1)
        then
            begin
                 for i:=1 to n do
                 if (a[i] mod m)=l
                    then
                        begin
                             f:=1;
                             label1.caption:=label1caption+''+inttostr(i);
                        end;
            end;
     if f=0
        then
showmessage('Таких чисел в массиве нету');
end;

{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var a:array of integer;
    n,m,L,i,k:integer;
begin
randomize;
val(Edit1.Text,n,i);
if(i<>0)or(n<1) then
 begin
  ShowMessage('Неверно введен размер массива (N)');
  Edit1.Clear;
  Edit1.SetFocus;
  exit;
 end;
val(Edit2.Text,m,i);
if(i<>0)or(m<1) then
 begin
  ShowMessage('Неверно введен параметр M)');
  Edit2.Clear;
  Edit2.SetFocus;
  exit;
 end;
val(Edit3.Text,L,i);
if(i<>0)or(L<0)or(L>m-1) then
 begin
  ShowMessage('Неверно введен параметр L');
  Edit3.Clear;
  Edit3.SetFocus;
  exit;
 end;
with StringGrid1 do
 begin
  fixedrows:=0;
  fixedcols:=0;
  rowcount:=1;
  colcount:=n;
  defaultcolwidth:=30;
 end;
SetLength(a,n);
//исходный массив
for i:=0 to n-1 do
 begin
  a[i]:=10+random(90);
  StringGrid1.Cells[i,0]:=inttostr(a[i]);
 end;
k:=0;
Label6.Caption:='';
for i:=0 to n-1 do
if a[i] mod m=L then
 begin
  k:=1;
  Label6.Caption:=Label6.Caption+'  '+inttostr(a[i]);
 end;
if k=0 then Label6.Caption:='Таких чисел нет';
end;