Процедура вывода

[Jack125]

Доброго времени суток

Дана простая задача: заполнить массив 3 на 3 случайными числами, но сделать это двумя процедурами: заполнение массива и вывод в StringGrid. С первой процедурой проблем нет, во второй же пишет "Too many actual parameters", хотя ничего лишнего там вроде бы не написал. В чем же может быть проблема?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;

type
  massiv=array[1..3,1..3] of integer;
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  mas:massiv;
  a:massiv;
implementation

procedure rand(x,y:integer;var mas:massiv);
var i,j:integer;
begin
randomize;
For i:=1 to x do
    For j:=1 to y do
        mas[i,j]:=random(6);
end;

procedure Print(x,y:integer;mas:massiv;var t:TStringGrid);
var i,j:integer;
begin
For i:=1 to x do
    For j:=1 to y do
        t.Cells[i-1,j-1]:=IntToStr(mas[i,j])
end;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
rand(3,3,a);
Print(3,3,a,StringGrid1);
end;

end.

[Вадим Мошев]

Покажите строку в которой возникает ошибка

[Jack125]

В строке Print(3,3,a,StringGrid1);

[Вадим Мошев]

Попробуйте назвать эту процедуру не Print, а как-то иначе, например, Pechat

[Jack125]

Большое спасибо за помощь