Ввести последовательность символов

[[ Senya Black ]]

Ввести последовательность символов, которая заканчивается символом '@'. Распечатать только те из них, которые расположены до первого символа ':'.

[Hacker19_90]

ReadLn (s);
i := 1;
while (s[i] <> ':') and (s[i] <> '@') and (i <= length(s)) do 
begin
  write (s[i]);
  Inc(i);
end;
Writeln;