[Страдалецъ]

Замените строки:

Код:

For I := 1 To 25 Do A[i] := Random(101) - 50;
на 
For I := 1 To 25 Do begin A[i] := Random(101) - 50; Memo1.Lines.Add(IntToStr(A[i])); end;

WriteLn('Min = ',M);
на 
Edit1.Text := 'Min = ' + IntToStr(M);

If C = 0 Then WriteLn('Avg = N/A') Else WriteLn('Avg = ',S/C);
на
If C = 0 Then Edit2.Text := 'Avg = N/A' Else Edit2.Text := 'Avg = ' + FloatToStr(S/C);

WriteLn('Mul = ',P);
на
Edit3.Text := 'Mul = ' + IntToStr(P)