Программа в делфи

[koxaz941]

Напишите пожалуйста программу.
дана строка символов среди которых есть двоеточие. Определить сколько символов ему предшествует?

[BDA]

write(pos(':', s) - 1);

[koxaz941]

Сообщение от BDA

write(pos(':', s) - 1);

procedure TForm1.Button1Click(Sender: TObject);
var s,f :real;
begin
s:=strtoint(Edit1.Text);
Memo1.Lines.Add(FloatToStr(f));
write(pos(':', s) - 1);
end;

end.
Красным выделена моя ошибка. Ну не программист я, а решить то нужно

[BDA]

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Add(inttostr(pos(':', Edit1.Text) - 1));
end;

[koxaz941]

Сообщение от BDA

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Add(inttostr(pos(':', Edit1.Text) - 1));
end;

спасибо огромное))