Witam
Napisałem taki oto programik do zliczania długości łańcucha. Niestety po podaniu wyrazu nic się nie dzieje. Proszę o pomoc ;)
function dlugosc (lan : array of char) : byte;
var d:byte;
begin
d:=0;
while (lan[d] <> '\0') do inc(d);
result:=d;
end;
var wyraz:array [1..50] of char;
begin
repeat
writeln('podaj wyraz');
readln(wyraz);
writeln('dlugosc wynosi', dlugosc(wyraz));
until wyraz = '.';
readln;
end.