Создать текстовый документ с помощью Паскаля, в котором N строк и M символов в строке, и символы-цифры 1,2....

  program proga_25_1; Var A: text;      i,j,n,m : byte;      d: string;      Sim:char; Begin              write('Введите имя текстового файла   ');  {Например: "test" он создастся там где находится сама программа }               read(d);                                         Assign(A,d);                 rewrite(A);                     write('Введите количество строк: N= ');                         readln(n);                     write('Введите количество символов в строке: M= ');                        readln(m);                                     for I:=1 to n do                    begin                           Sim:=Chr(Ord('1')+I-1);                           For J:=1 to m do                                write(A,Sim);                                writeln(A);                    end;                           close(A);end.