1)дано слово. удалить его k-ый символ.

uses crt;
var
s: String;
k: Word;
begin
clrscr;
WriteLn('Введите слово');
ReadLn(s);
WriteLn('Введите номер символа, который нужно удалить');
ReadLn(k);
delete(s, k, 1);
WriteLn('Вот что получилось = ', s);
ReadLn;
end.