unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    btnSpocti: TButton;
    btnNuluj: TButton;
    Label3: TLabel;
    Vysledek: TEdit;
    Label2: TLabel;
    Vstup: TEdit;
    Label1: TLabel;
    procedure btnNulujClick(Sender: TObject);
    procedure btnSpoctiClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private

  public

  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
  btnNulujClick(Sender);
end;

procedure TForm1.btnNulujClick(Sender: TObject);
begin
  Vstup.Text := '';
  Vysledek.Text := '0';
end;

procedure TForm1.btnSpoctiClick(Sender: TObject);
var Suma:real;
    i, Pocet:integer;
    Znak, Cislo:string;

begin

  Pocet := 0;
  Suma  := 0;
  Cislo := '';
  // Cyklus na rozebrání řetězce po znacích:
  for i:=1 to length(Vstup.Text) do begin
    Znak := copy(Vstup.Text,i,1);
    if (Znak=' ') OR (Znak='0') then
      try
        Suma := Suma+StrToFloat(Cislo);
        inc(Pocet);
        Cislo := '';
      except
      end
    else
      Cislo := Cislo+Znak;
  end;


  // Výpočet průmeru:
  try
    Vysledek.Text := FloatToStr(Suma/Pocet);
  except

  end;
end;

end.