Строки Опции

[nSk]

Помогите написать процедуру котрая дудит удолять символы в строках. ( с использованием стаднартных финкций и процедур обработки строк )
например :
Спрашивается число ( например 3 )
Спрашивается слово ( наприсер Valmera )
И программа выдает Valera
(тоесть она оставляет только 3 первые и 3 последнии символы )
еще пример :
stroka : 'raz dva tri chitire'
chislo : 4
otvet : raz tire

Заранние благодарю...

[klem4]

Ну раз уж я про delete сказал, то с ним вот так :

uses crt;
var
  s : string;
  n : byte;
begin

   clrscr;

   write('s = '); readln(s);
   write('n = '); readln(n);

   delete(s,n + 1,length(s)-2*n);

   writeln(s);

   readln;

end.