к-тый символ слова.паскаль

[menjazovutk]

Дано слово.Программа выведет на экран его к-тый символ.
я решила так:

var cislo,i:integer;
procedure vypis(slovo:string); {надо сделать с procedure}
begin
readln(slovo);
readln(cislo);

for i:=1 to length(slovo) do
begin
if((i mod cislo)=0) then
write(slovo[i]);
end;
end.
подскажите, пожалуйста, какая у меня ошибка.Заранее благодарю.

[Roof]

program MyCharInWord;
uses
  Crt;
var
  S: String;
  K: Integer;
  
procedure CharInWord(S: String; Index: Integer);
begin
  WriteLn(Index, '-iy simvol = ', S[Index]);
end;

begin
  ClrScr;
  WriteLn('Vvedite Slovo');
  ReadLn(S);
  WriteLn('Vvedite nomer simvola');
  Readln(K);
  CharInWord(S, K);  //вызов процедуры
  ReadLn;
end.

[Naive]

Отсутствует тело самой программы, в которой данная процедура должна вызываться.
Внутри процедуры надо-бы убрать чтение слова, оно должно передаваться из самой программы.

var cislo,i:integer;
    gl_slovo:string;
procedure vypis(slovo:string); {надо сделать с procedure}
begin
write('enter number: ');
readln(cislo);
for i:=1 to length(slovo) do
begin
if((i mod cislo)=0) then
write(slovo[i]);
end;
Begin
write('enter your word: ');
readln(gl_slovo);
vypis(gl_slovo);
End.

Проверьте, нет компилятора под рукой(
п.с. Вы уверены, что программа должна выдавать каждый k-тый символ?

[menjazovutk]

спасибо Вам большое