В строке удалить первые 3 символа ?

[newprog12]

Есть строки разной длины.

Как в строке (string) удалить первые 3 символа?

[Пепел Феникса]

Delete(s,1,3);

[Вадим25]

program as;
uses
сrt;
var
s:string;
i:integer;
begin
clrscr;
writeln('vvedite stroky');
read(s);
for i:=1 to length(s) do
begin
delete(s,1,3);
end;
write(s);
readkey;
end.