ОПЕРЕЖАЮЩИЕ ОПИСАНИЯ ПРОЦЕДУР

[DRAgon™]

Сообщение от Don Karleone

1) инициализация графического режима. Я не силен в графике, но у тебя она неправильная. Попробуй сделать так
begin
device:=0;
mode:=0;
initgraph(device,mode,'c:\bp\bgi'); {если корневой коталог паскаля на диске С}
DirectVideo:=false;
Nachalo; {вызов процедуры Nachalo}
end;

2) в процедуре начало должно быть введено имя игрока, установлено количество торпед, количество кораблей.

procedure Nachalo;
begin
  torpeda_c:=0;
  korabl_s:=0;
  Writeln('What was the name gamer');
  Readln(name);  {ввод имени игрока. Кстати, name должна быть строковой переменной а не Integer}
  Writeln('Counters of torpedoes');
  Readln(torpeda_c);  {ввод количества торпед}
  Writeln('Counters of ship');
  Readln(korabl_s);  {ввод количества кораблей}
  {а теперь вызываем процедуру Risunok}
  Risunok
end;

ну и так далее...

фэнкю вэри мач

[Don Karleone]

Сообщение от DRAgon™

фэнкю вэри мач

так работать все равно не будет. там ошибок еще целая кучааааа.

[DRAgon™]

Сообщение от Don Karleone

так работать все равно не будет. там ошибок еще целая кучааааа.

Уже половину исправил ,главное теперь нормальные процедуры.

[Don Karleone]

Сообщение от DRAgon™

Уже половину исправил ,главное теперь нормальные процедуры.

нормальными они будут когда вся прога норамально заработает