программы на делфи

[bgh14]

помогите написать программы
1 В исходном предложении заменить все символы пробела символом «_» Напечатать исходный и преобразованный тексты.

2. Создать файл, содержащий массив вещественных чисел. Определить количество чисел, меньших среднего арифметического значения всех чисел массива.

[goto ∞]

1)

 var s1,s2 : string; pr : integer;
  begin
  s1 := edit1.text;
  s2 := s1;
   pr := pos(' ', s2);
    while pr<>0 do
     begin
      s2[pr] :='_';
      pr := pos(' ', s2);
    end;
  label1.Caption := s1;
  label2.Caption := s2;

[bgh14]

пасибо
а со второй не поможете?

[goto ∞]

2)
Глобальные переменные (обязательно)

  a : array of real;
  n,i : integer;
  f : textfile;
  s : real;

По нажатию первой кнопки

procedure TForm1.Button1Click(Sender: TObject);
var c : string;

function toc( c : string) : string; //функция для замены в строковой переменной ',' на '.'
var l : integer;
begin
 l := pos(',',c);
 if l <> 0 then c[l] := '.';
 result := c;
end;

begin
 randomize;
 n := strtoint(edit1.Text);
 setlength(a,n); // задаем размерность массива
 assignfile(f,'output.txt');
 rewrite(f);
 s := 0;
  for i := 0 to n-1 do
   begin
   a[i] := random(50)*0.10+1.50;
   s := s + a[i]; //находим сумму элементов
   stringgrid1.cells[i+1,1] := floattostr(a[i]);
   c := stringgrid1.Cells[i+1,1]+' ';//читаем из STRINGGRID в 'c'
   write(f,toc(c));                   //лучше записать строковую чем real
   end;                                 // меньше проблем при чтение
 closefile(f);
 s := s/n;//среднее арифмитеческое
 label1.Caption := floattostr(s); //вывод среднее
end;

По нажатию второй кнопки

procedure TForm1.Button2Click(Sender: TObject);
var t,z : string; v : real;
b : integer; //количесвто чисел которые меньше ср.а.
begin
b := 0;
assignfile(f,'output.txt');
reset(f);
while not Eof(f) do
 begin
  read(f,v); //читеам число
   if v < s then inc(b); // проверяем, если ср.а. то увеличиваем 'b'
 end;
 closefile(f);
 label2.Caption := inttostr(b-1);//вывод результата
 end;
end.

Перед запуском сохрани все..
Если не получится напиши мыло, я просто скину готовую..

и файлов заранее создавать не надо..

[bgh14]

спасибо большое!!!!