Пишу игру "Морской бой"

[OmegaBerkut]

Вот исходный код модуля, в котором логическая ошибка:

unit Unit3;

interface

type TMatrix = array[-4..13,-4..13] of integer;

function State1(var x,y:integer):boolean;
function State2(var x, y: Integer):boolean;
function State3(var x,y:integer):boolean;
procedure Start;

var
Pole:TMatrix; Play:TMatrix; Kor:array[1..4] of integer;
State,Len,Pkx,Pky,Px,Py:integer;

implementation

uses Unit1;

procedure Init(var Pole:TMatrix);
var x,y:integer;
begin randomize;
for x:=1 to 10 do
for y:=1 to 10 do
Pole[x,y]:=-1; end;

procedure Start;
var i:integer;
begin
Init(Play);
Init(Pole);
State:=1;
for i:=1 to 4 do Kor[i]:=5-i;
end;

function MaxShip:integer;
var i:integer;
begin
result:=0;
for i:=1 to 4 do
if (Kor[i]>0) then
result:=i else;
end;

function Freedom(x,y:integer; Pole:TMatrix):boolean;
const d:array[1..8,1..2] of integer =
((0,1),(1,0),(0,-1),(-1,0),(1,1),(-1,1),(1,-1),(-1,-1));
var i,dx,dy:integer;
begin
if (x>0) and (x<11) and (y>0) and (y<11) and (Pole[x,y]=-1) then
begin
for i := 1 to 8 do
begin
dx:=x+d[i,1];
dy:=y+d[i,2];
if (dx>0) and (dx<11) and (dy>0) and (dy<11) and (Pole[dx,dy]>-1) then
begin
result:=false;
exit;
end else;
end;
result:=true;
end else
result:=false;
end;



function State1(var x,y:integer):boolean;
var k,i,n,m:integer;
b:boolean;
tmp:integer;
begin
repeat
repeat
x:=random(10)+1;
y:=Random (10)+1;
until (Freedom (x, y, Play)); Pkx:=Random(2);
Pky:=Pkx-1;
for m:=1 to 2 do
begin
i:=0;
k:=0;
for n:=1 to 2 do
begin
while (Freedom(x+Pkx*i, y+Pky*i, Play)) do
begin
inc(k);
inc(i);
end;
Pkx:=-Pkx;
Pky:=-Pky;
i:=1;
end;
b:=k>=MaxShip;
if (b) then
break else;
tmp:=Pkx;
Pkx:=Pky;
Pky:=tmp;
end;
until (b);
Result:=Play[x,y]=0;
if (result) then
begin
Px:=x;
Py:=y;
Len:=1;
if (MaxShip>1) then
State:=2 else
dec(Kor[Len]); end;
end;

function State2(var x, y: Integer):boolean;
var Old:ShortInt;
tmp,k:integer;
begin
Old:=Play[Px,Py];
Play[Px,Py]:=-1;
repeat
if not(Freedom(Px+Pkx, Py+Pky, Play)) and not(Freedom(Px-Pkx, Py-Pky, Play)) then
begin
tmp:=Pkx;
Pkx:=Pky;
Pky:=tmp;
end else;
if (Random(2)=0) then
begin
x:=Px+Pkx;
y:=Py+Pky;
end else
begin
x:=Px-Pkx;
y:=Py-Pky;
end;
until (Freedom(x, y, Play));
result:=Play[x,y]=0;
if (result) then
begin
Len:=2;
State:=1;
if (MaxShip>2) then
State:=3 else
dec(Kor[Len]);
end else
begin
k:=4;
if not(Freedom(Px+1, Py, Play)) then dec(k) else;
if not(Freedom(Px-1, Py, Play)) then dec(k) else;
if not(Freedom(Px, Py+1, Play)) then dec(k) else;
if not(Freedom(Px, Py-1, Play)) then dec(k) else;
if (k<2) then State:=1 else;
end;
Play[Px,Py]:=Old;
end;

function State3(var x,y:integer):boolean;
var Old:ShortInt;
i:integer;
b:boolean;
begin
for i:=1 to 2 do
begin
x:=Px;
y:=Py;
while (Play[x,y]=1) do
begin
inc(x, Pkx);
inc(y, Pky);
end;
Old:=Play[x-Pkx,y-Pky];
Play[x-Pkx,y-Pky]:=-1;
b:=Freedom(x, y, Play);
Play[x-Pkx,y-Pky]:=Old;
if (b) then break else;
Pkx:=-Pkx;
Pky:=-Pky;
end;
if (b) then
begin
result:=Play[x,y]=0;
if (result) then
begin
inc(Len);
if (Len=MaxShip) then
begin
dec(Kor[Len]);
State:=1;
end else;
end; end else
begin
dec(Kor[Len]);
State:=1;
result:=State1(x, y);
end;
end;

end.

благо правила прочитал (впервые в жизни), чуть ли файл внешней ссылкой не прикрепил (если оффтоп - прошу прощения, оправдание ниже).

Взял я его от сюда и модифицировал под себя (этим можно объяснить отсутствие некоторых процедур в моём коде).

Моя проблема в том, что: при выполнении функции state1, когда рандом попадает в ячейку матрицы, где есть корабль - весь внешний цикл repeat (функции State1) становиться бесконечным, т.е. его выполнение не завершается.
Что касательно state2 и state3 - до этого я дойти ещё не смог.

Если что то не уточнил - извиняюсь, я с этой проблемой пытаюсь разобраться уже больше суток, прошу понимания - не выспался, так что попрошу не ругаться (пожалуйста).

Помогите пожалуйста разобраться с данной проблемой.

[OmegaBerkut]

Ей богу, я очень извиняюсь за свою тупость.

[Человек_Борща]

вы забыли главное - комментарии к коду.

[OmegaBerkut]

Сообщение от Человек_Борща

вы забыли главное - комментарии к коду.

У меня, как и у источника, комментарии не описаны. Я для правильности работы предоставленного кода не изменял математические операции, поэтому не в курсе, что делает каждый оператор кода, разве что Px,Py - последние координаты попадания по кораблю у компьютера.
Но есть пояснения к каждой процедуре / функции в источнике.

[s-andriano]

Неотформатированный код, без единого комментария и с ничего не говорящими названиями переменных...
Писал его явно дилетант.
На мой взгляд, этому коду прямая дорога в мусорную корзину.
Никакой пользы для себя, пытаясь разобраться в этом коде, Вы не получите.
В любом случае - гораздо проще написать с нуля.

[Arigato]

Так там можно скачать архив с исходником, который работает.

[Человек_Борща]

OmegaBerkut, я к тому, что ваш код вообще не читабелен. Даже имена переменных ничего не говорят из названия, не говоря уже хоть о каком-то описании алгоритма в этой программе.

[Arigato]

Человек_Борща, описание тут: http://aka-alex.narod.ru/seabattle.htm

[OmegaBerkut]

Ладно, где тут тему закрывать ?
Придётся самому трассировать...

[zarina.serikbulato]

Извините,а что такое TPole?