procedure DoVerticals(HowManyTimes: Integer);
var
 Count: Integer;
begin
 for Count := 1 to HowManyTimes do
 Writeln('   |   |   ');
end;