[Pascal] Schiffe_Versenken Spielfeld generieren

// Feld des HP generieren
 for zeile := 1 to max_zeilen do
 begin
 for spalte := 1 to max_spalten do
 begin
 feld_hp[zeile,spalte] := 'W';
 end;
 end;
 
 // Feld des SP generieren
 for zeile := 1 to max_zeilen do
 begin
 for spalte := 1 to max_spalten do
 begin
 feld_sp[zeile,spalte] := 'W';
 end;
 end;
 
/////////////////////////////////////////////////////////////////////

///////////////////////// TEIL 2 //////////////////////////////////

 Write('Geben Sie nun die Anzahl der Schiffe ein (max ',max_spalten*max_zeilen,') : ');
 Readln(max_schiffe);
 If (max_schiffe < 1) or (max_schiffe > max_spalten*max_zeilen)
 then begin
 Writeln('Falsche Eingabe. Sie müssen mindestens ein Schiff und maximal ',max_spalten*max_zeilen,' einfügen.');
 end
 Else begin
 Writeln('Es werden nun ',max_schiffe,' Schiffe auf das Feld verteilt.');
 Writeln('...');
 Writeln('Schiffe erfolgreich verteilt.');
 Writeln;
 end;
 
 Randomize;
 
 //Schiffe des HP generieren
 for gen := 1 to max_schiffe do
 begin
 repeat
 zeile := random(max_zeilen) +1;
 spalte := random(max_spalten) +1;
 check := (feld_hp[zeile,spalte] = 'W');
 until check;
 
 feld_hp[zeile,spalte] := 'S';
 end;
 
 //Schiffe des SP generieren
 for gen := 1 to max_schiffe do
 begin
 repeat
 zeile := random(max_zeilen) +1;
 spalte := random(max_spalten) +1;
 check := (feld_sp[zeile,spalte] = 'W');
 until check;

 feld_sp[zeile,spalte] := 'S';
 end;