vnořením foru a využitím jeho řídící proměnné
místo
writeln('m,m*2,m*3,m*4,m*5,m*6,m*7,m*8,m*9,m*10);
bude
for i := 1 to 10 do
write(m*i);
writeln;
nezkoušel jsem to, tak snad tam není nějaká blbá chyba nebo překlep, ale s tím si už když tak určitě poradíš