Сгенерировать и записать в текстовой файл N заданий типа -37,8:3,6+12,5·(-0,6) — Pascal(Паскаль)

{Сгенерировать и записать в текстовой файл N
 заданий типа -37,8:3,6+12,5·(-0,6)}

Program Generator_Zadaniy;
   Var T : Text;
       S : String;
       I, N, Rez, B, C, D : Integer;
  Begin
      Assign(T, 'test.dat');
      ReWrite(T);
      Randomize;
      Write('Сколько заданий сгенерировать? ');
      ReadLn(N);
      For I := 1 To N Do
      Begin
        Rez := 2 + Random(15);
        B := (11 + Random(35));
        C := Rez * B;
        Repeat
         D := 2 + Random(6)
        Until Not Odd(D);
        Write(T, '-', C Div 10);
        If C Mod 10 <> 0 Then Write(T, ',', C Mod 10);
        Write(T, ':', B Div 10);
        If B Mod 10 <> 0 Then Write(T, ',', B Mod 10);
        WriteLn(T, '+', 2 + Random(16), ',5·(-0,', D, ');')
     End;
     Flush(T);
     Close(T)
  End.