lancuch znakow

witam

jak zrobic cos takiego zeby pobrac z ciagu znakow pierwsze 3 znaki i zapisac do zmiennej, nastepnie jeden ominac, i zapisac kolejne 3 do drugiej zmiennej??

var
s1, s2, s: string;
begin
s := 'Jakiś łańcuch znaków';
s1 := Copy(s, 1, 3);
s2 := Copy(s, 5, 3);
end;

Najpierw pokombinuj sam, a potem pytaj.