Удалить K-ый символ из строки

Program mimi;
Uses CRT;
Var s:char;
    str:string[100] ;
    k1,i,n,o:integer;
    s1: char;
 
Begin
clrscr;
Write('Введите строку ');
readln(str);
Write('Введите какой символ по счету требуется удалить ? ');
readln (s1);
n:= length(s1);
o:=ord(s1);
K1:= 0;
 
For i:= 1 to length(str) do
begin 
if str[i] <> s1 then
 
str[i] := str[i + 1]
else  Delete(str,i, n);
 
end; 
 
Writeln;
Textcolor(10);
Writeln ('Ответ - ',str);
readln;
end.

Uses CRT;
Var s:char;
    str:string;
    k:byte;
Begin
clrscr;
Write('Введите строку ');
readln(str);
repeat
Write('Введите какой символ по счету требуется удалить от 1 до length(s) k=');
readln (k);
until k in [1..length(str)];
s:=str[k];
Delete(str,k,1);
Textcolor(10);
Writeln ('Удален символ ',s);
readln;
end.

var s:string;
k,i:integer;
begin
    readln(s);
    read(k);
    for i:=1 to length(s) do
   if i<>k then write(s[i]);
end.

writeln(s);

var s:string;
k,i:integer;
begin
    readln(s);
    read(k);
    i:=1;
   while (i<=length(s)) do 
   if i=k then 
     begin 
         write(s[i]);
         i:=length(s)+1;
      end else inc(i);
end.