Оператор повторения

[White_foxSA]

Приветствую программеры, есть у меня проблема.

var
 i,j,n:integer;
 s:string;
  f:textfile;
begin
Write('Вводим количество символов в "абракадабре" ');
Readln(n);
 randomize;
 s:='';
 for j:=1 to n do
 begin
 i:=random(3);
 if i=0 then
 s:=s+chr(random(13)+ 48)else
  if i=1 then
 s:=s+chr(random(65)+62)else
  if i=2 then
 s:=s+chr(random(15)+33);
end;
writeln(s);
assign(f,'qwerty.txt');
rewrite(f);
writeln(f,s);
close(f);
Readln;
end.

Нужно сделать так что бы прога повторялась N раз и при этом новый результат писался в строке ниже. Пробовал через оператор повторения, выполняет, только все в 1 строку сливает и получается строка с огромным набором символов.

Вот попытка реализовать через оператор повторения:
var
 i,j,n,k,g :integer;
 s:string;
  f:textfile;
begin
Write('Сколько раз повторить прогу?');
Readln(g);
Write('Вводим количество символов в "абракадабре" ');
Readln(n);
randomize;
 s:='';
 for j:=1 to n do
 for k:=1 to g do
begin
 i:=random(3);
 if i=0 then
 s:=s+chr(random(13)+ 48)else
  if i=1 then
 s:=s+chr(random(65)+62)else
  if i=2 then
 s:=s+chr(random(15)+33);
 s:=s+chr(10)+chr(13);
end;
writeln(s);
assign(f,'qwerty.txt');
rewrite(f);
writeln(f,s);
close(f);
Readln;
end.

[spamer]

Толком не понял, что надо сделать, но смысл вроде вот такой:

var
  i,j,n:integer;
  s:string;
begin
Write('Вводим количество символов в "абракадабре" ');
Readln(n);
randomize;
s:='';
for i := 0 to n - 1 do
  begin
    s := s + chr(random(65)+62);
    writeln(s);
  end;
  readln;
end.

[White_foxSA]

попробую обьяснить, программа генерирует случайную строку из N числ.
Получается, что в файле только 1 сгенерированная строка.
А мне нужно что бы программа генерировала и писала в файл новую строку
и перед этим отступала на новую строку, короче выполняла команду Enter'a в коде ниже, эта прога генерирует нашу строку столько раз сколько закажем, НО пишиет все в одну строку и получается в файле что то вроде wehgf^@#$@jger9@$. после чего выполняет переход на новую строку.
А мне нужно что бы в файле было нечто вроде
12qw"№
2а13;%
s95#@
и т.д. оператор повторения не захватывает код создания перехода на новую строку, в результате переход осуществляется только 1 раз.

var
 i,j,n,k,g :integer;
 s:string;
  f:textfile;
begin
Write('Вводим g');
Readln(g);
Write('Вводим количество символов в "абракадабре" ');
Readln(n);
randomize;
 s:='';
 for j:=1 to n do
 for k:=1 to g do
begin
 i:=random(3);
 if i=0 then
 s:=s+chr(random(13)+ 48)else
  if i=1 then
 s:=s+chr(random(65)+62)else
  if i=2 then
 s:=s+chr(random(15)+33);
 s:=s+chr(10)+chr(13);
end;
writeln(s);
assign(f,'qwerty.txt');
rewrite(f);
writeln(f,s);
close(f);
Readln;
end.

[Stilet]

rewrite(f);

Вместо этого append(f); тогде будет дописываться в конец файла.

[White_foxSA]

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

[Stilet]

Может тя так устроит:
1. Убери строку s:=s+chr(10)+chr(13);
2. append(f); вместо rewrite(f); не забудь.

[White_foxSA]

сейчас попробую

[White_foxSA]

сделал, в итоге начинаю злиться на эту прогу, нехотит работать как надо

[val_nnm]

var
  i,j,n,k,g :integer;
  s:string;
  f:textfile;
begin
  Write('Сколько раз повторить прогу?');
  Readln(g);
  Write('Вводим количество символов в "абракадабре" ');
  Readln(n);
  randomize;
  assign(f,'qwerty.txt');
  rewrite(f);
  for j:=1 to n do Begin
    s:='';
    for k:=1 to g do
    begin
      i:=random(3);
      if i=0 then
        s:=s+chr(random(13)+ 48)
      else
        if i=1 then
          s:=s+chr(random(65)+62)
        else
          if i=2 then
            s:=s+chr(random(15)+33);
    end;
    writeln(s);
    writeln(f,s);
  end;
  close(f);
  Readln;
end.

P.S. White_foxSA учитесь правильно форматировать программный код. Всего несколько пробелов в начале каждой сточки и сразу видно что и сколько раз повторяется.

[White_foxSA]

Тему можно закрыть, проблема решена)