[lijan]

Для Delphi в консоли:

Код:

var
s:string;
begin
readln(s);
    writeln(length(s));
readln;
end.

для Delphi в графике:

Код:

...
var s:string;
begin
s:=Edit1.Text;
Label1.Caption:=Length(s);
end.