генерация чисел

[nXs]

Ув. форумчане, подскажите пожалуйста, почему генерация чисел в данной процедуре иногда возвращает число больше 20?

procedure AIS(var Plate:sh);

function Generate(var str:integer):TPoint;
var
S:TPoint;
begin
S.X:=0;
S.Y:=0;
randomize;
S.X:=random(20);
S.Y:=random(20);


case Plate[S.X, S.Y] of

0:  begin
    Plate[S.X, S.Y]:=5;
    Result.X:=S.X;
    Result.Y:=S.Y;
    str:=5;
    end;
1:  begin
    Plate[S.X, S.Y]:=6;
    Result.X:=S.X;
    Result.Y:=S.Y;
    str:=6;
    end;
2:  begin
    Plate[S.X, S.Y]:=7;
    Result.X:=S.X;
    Result.Y:=S.Y;
    str:=7;
    end;

5..16:result.X:=0;
end;
end;


var
Sr:TPoint;
nm:integer;
begin
Sr.X:=0;
Sr.Y:=0;


Sr:=Generate(nm);


Form1.Edit1.Text:=inttostr(Sr.X);
Form1.Edit2.Text:=inttostr(Sr.Y);


end;

[Greek9000]

Мне кажется, что всё-таки не генерация чисел возвращает число больше 20-ти, а сама процедура.
Мне кажется, что это присходит из-за того, что в конструкции case описаны не все возможные исходы. Кстати "5..16:result.X:=0;" так и должно быть, присвоение result.Y:=0; не нужно?

[nXs]

Странно, но какое отношение имеет генерация к сравнению данных, рандомно выбирается то только адрес массива.... Исправил приравнял у:=0 все работает. Спасибо.