ANTICHAT — форум по информационной безопасности, OSINT и технологиям

program Sequences;
      type Sequence=array [byte] of byte;
      var M,N,i:byte;
	  X:Sequence;
	  Yes:boolean;
      procedure Next(var X:Sequence;var Yes:boolean);
	var i:byte;
      begin
	i:=N;
	{поиск i}
	while (i>0)and(X[i]=M) do begin X[i]:=1;dec(i) end;
	if i>0 then begin inc(X[i]);Yes:=true end
	else Yes:=false
      end;
    begin
      write('M,N=');readln(M,N);
      for i:=1 to N do X[i]:=1;
      repeat
	for i:=1 to N do write(X[i]);writeln;
	Next(X,Yes)
      until not Yes
    end.

var
ss,s1,s2,s3 : string;
begin
s1 := '1';
s2 := '2';
s3 := '3';
ss := s1 + #13#10 + s2  + #13#10 + s3;
memo1.Lines.Add(ss);
.... или
memo1.Lines.Add(s1);
memo1.Lines.Add(s2);
memo1.Lines.Add(s3);