const
Max = 10;
type
index = 1..Max;
malecislo = 0 .. 999;
pole = array [index,index] of malecislo;
matice = record
A : pole;
D : index; {rozmer matice}
end;
Napište podprogram, který dostane jako parametry
M - matici, F počet znaků, do kterých má vystoupit číslo, a S jméno výstupního souboru.
Podprogram nechá matici vystoupit do výstupního souboru formátovaně, ale tak,
že případná nulová čísla budou ve výstupu reprezentována jako F znaků mezera.
Pokud to již umíte, umístěte podprogram do ladícího programu, abyste ji mohli otestovat.
Pokud ne, napište proceduru jen "na sucho" v textovém editoru.