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

program proga;

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.