С клавиатуры вводят слово и знак. Составьте программку, которая определяет позицию

program xxx;

var a,s : string;

   i:integer;

begin

   writeln ('Введите слово и знак-');

   readln (s,a);

   for i:=1 to length(a) do

     if copy (s,i,1)=a then writeln (i);

   readln

end.

паскаль:

uses crt;

var a,b:string;\ а-слово ,b-знак

i:integer;\ переменная для счета

begin

writeln ('Слово и знак');

readln (a,b);\\ввод данных

for i:=1to length(a) do if copy (a,i,1)=b then writeln (i);\\Копирование по порядку знаков слова а  и сравнение каждого с эмблемой b. Вывод ответа. Либо ответов 

readkey;\\если знаки в слове повторяются

end.