морской бой

[Joney_Hell]

Не могу расставить корабли, помогите кто может
Вот код

program qwe;

var
a:array[1..10,1..10] of integer;

i,j,o,k,g, q, w, f:integer;

begin




g:=0;
for f:=1 to 10 do begin
writeln('строка верт');
read(q);
writeln('строка гор'); read(w);



a[q,w]:=1;


write('Расставте корабли'); writeln;
write(' а б в г д е ж з и к '); writeln;

for i:=1 to 10 do begin if i<10 then write(' ',i, '| ') else write(i, '| ');
for j:=1 to 10
do begin


write(a[q,w], ' ');

a[i,j]:=random(0);

end; writeln;
end; writeln;

end;


end.

[Joney_Hell]

Вопрос закрыт