Строки Опции

[nSk]

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

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

[klem4]

FAQ : Строки

функция delete(s,start,len);

[volvo]

var
  s: string;
  n: integer;
begin
  write('s = '); readln(s);
  write('n = '); readln(n);

  s := copy(s, 1, n) + copy(s, length(s) - n + 1, n);
  writeln(s);
end.

[nSk]

Я пытался брать делете delete() но в этой функции у меня почему то не работают переменные тока сразу готовые значения ( delete(s,2,3) - работает , а delete(m,d,e) - некак... )

Спасибо volvo ! работаеет

[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.

[nSk]

спасиб klem4, понял