Programa pesquisa

[Antoniossssss]

Olá, o programa abaixo pesquisa nomes inseridos no teclado e dá os resultados ( a pesquisa é feita em string), e a pesquisa é feita somente com palavras exatas e inteiras,sem problemas. No entanto eu gostaria de saber se alguém sabe algum comando para ler somente as três primeiras iniciais e as três últimas letras de uma palavra digitada.

Alguém sabe exemplificar essa questão?

Obrigado

program video;
var
K: string; 
begin
Clrscr;

textbackground(white);
GotoXY (30,12);
textcolor (white);
writeLn ('Digite o seu nome');
Clrscr;

GotoXY (40,12);
readLn (K);
if K = 'Gervásio'
then
begin
Clrscr;

GotoXY (40,15);
textcolor (blue);
writeLn ('Nominho feio hein....');  
end 

else
if K = 'Patrícia'
then
begin
Clrscr;
GotoXY (40,10);
textcolor (red);
writeLn ('Cheia de malícia....');
writeLn;
end;
end.

[Cypher]

simples usas primeiro o lenght de seguida o copy

PS. gostei da tua identação ?