Написать через метод ООП + модуль

[lalka123]

Этот код программы нужно переписать методом Объектно-Ориентированного Программирования и чтобы он также содержал модуль.
Код Pascal:

Var a:array[1..15] of integer; 
i,max,j:byte;
begin
randomize;
max:=a[1];
for i:=1 to 15 do
begin
a[i]:=random(46)-15;
if a[i]>max
then begin
max:=a[i]; j:=i;
end;
Write(a[i],' ');
end;
Writeln('Maximum ',max,' na ',j);
readln;
end.

[Stilet]

Так?:

program Project1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes, Unit1
  { you can add units after this };

begin
  with baka.Create do begin
    met;Free;
  end;
end.

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils;
type

  { baka }

  baka=class
    procedure met;
  end;

implementation

{ baka }

procedure baka.met;

Var a:array[1..15] of integer;
i,max,j:byte;
begin
randomize;
max:=a[1];
for i:=1 to 15 do
begin
a[i]:=random(46)-15;
if a[i]>max
then begin
max:=a[i]; j:=i;
end;
Write(a[i],' ');
end;
Writeln('Maximum ',max,' na ',j);
readln;

end;

end.

Если да бери за идею, но не копипасти.