Valaki letudná nekem írni ehhez a forráskódot? Már 1órája szenvedek vele (turbo delphi)

var s:string;

begin

readln(s);

writeln(length(s));

end.

Amennyire én tudom, a Delphi nem sokban tér el Pascal-tól.

Pascalban ez így néz ki kb;

program szam;

uses crt;

var i,szam,szamhossz: longint;

begin

clrscr;

szam:=1000001;

while (szam>1000000) or (szam<0) do

begin

writeln("Irjon be egy egymilliónal kisebb, pozitív, egész számot.");

readln(szam);

end;

i:=length(szam)

writeln(i);

readln;

end.

Ellenőrizni nem tudtam mert szenved a program -.-"

pszeudo kódban:

ha szám > 1000000 vagy szám < 0 akkor HIBA

hossz = 0

ciklus

szám = szám / 10

hossz = hossz + 1

amíg szám > 0

a "/" az egész osztást jelöli