Нужен совет

[Tir0n]

Дело вот в чём. Есть задача: Дана строка, состоящая из групп нулей и единиц, разделенных пробелами. Найти и вывести на экран самую короткую группу. Условие: необходимо оформить в 2 модуля. Моё решение такое:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Unit2, Buttons;

type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
BitBtn1: TBitBtn;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

Var
Form1: TForm1;
Smin:string;
Implementation
{$R *.dfm}

Procedure TForm1.FormCreate(Sender: TObject);
Begin
Edit1.Clear;
Edit2.Clear;
End;

Procedure TForm1.Button1Click(Sender: TObject);
Begin
Edit2.Clear;
Raschet(Smin,Edit1);
Edit2.Text:=Smin;
End;
End.


unit Unit2;
interface
uses StdCtrls, SysUtils;
Procedure Raschet(smin:string; Edit1:Tedit);
implementation

Procedure Raschet(smin:string; Edit1:TEdit);
Type
Mas=array[1..10] of string;
Var
a:mas;
s:string;
i,n,k:integer;
Begin
s:=Edit1.Text;
s:=s+' ';
n:=0;
for i:=1 to Length(s) do
Begin
k:=pos(' ',s);
if k=1 then break;
a[i]:=copy(s,1,k-1);
Delete(s,1,k);
n:=n+1;
End;
For i:=1 to n-1 do
Begin
If Length(a[i])<=Length(a[i+1]) then
a[i+1]:=a[i];
End;
Smin:=a[n];
End;
End.

Компилируется, вводим в Edit1 группы цифр, разделённых пробелами. Но при запуске либо ничего не происходит, либо выдаёт Access Violation и указывает на строку Edit2.Text:=Smin в конце первого юнита. Пожалуйсто, подскажите как это исправить или предложите альтернативное решение. Допускается использование множеств.