Valaki tud segiteni?

A Pascal a legkönnyebben tanulható nyelv, ezért nem értelek. Az egész program nyúlfarknyi, minimális 'szókinccsel' megoldható lásd:

program veletlen;

uses SysUtils;

var f : Text;

tipusos : file of Integer;

i, j, temp : Integer;

tomb : array[1..100] of Integer;

begin

Randomize;

for i := 1 to 100 do tomb[i] := Random(201) - 100;

AssignFile(tipusos, 'tipusos.int');

ReWrite(tipusos);

for i := 1 to 100 do Write(tipusos, tomb[i]);

CloseFile(tipusos);

for i := 100 downto 1 do

begin

for j := 1 to i do

begin

if tomb[j] > tomb[j + 1] then

begin

temp := tomb[j];

tomb[j] := tomb[j + 1];

tomb[j + 1] := temp;

end;

end;

end;

AssignFile(f, 'tipusos.txt');

ReWrite(f);

for i := 1 to 100 do Writeln(f, tomb[i]);

CloseFile(f);

ReadLn;

end.

Hibakezelés természetesen elférne.

A nagyfiam is rendszer informatikusnak tanult, lusta volt, bocs együtt élt már a jövendőbelijével, de azért a programozás alapjait tudta, megtanulta, mert érezte, hogy anélkül nem végez.