Назовите координаты точек в которых находился чертежик до выполнения команды сместиться в точку (2,3) ответ

Наша жизнь полна разных трудностей(знаю звучит абсурдно но не обессуть). Есть разные предметы по которым (в основном технологические) иногда требуется составление таблицы. Конечно для каждого кажется легче свой кому-то легче учить сплошным текстом, кому то легче таблицами или схемами. Но, по моему намного легче учить таблицами. Кроме того таблицы нужны не только для учёбы ,но и для работы например: тебе нужно написать отчёт по работе, и конечно будет намного легче для понятия если ты напишешь это в виде таблицы или схемы чем свободным текстом. Ещё например в жизни могут понадобятся таблицы для того чтобы составить решить задачу-вот для чего нужны таблицы.

Var 
s,s1,s2,st1,st2:string; i:integer; 
mn:set of char; b:boolean;
begin
writeln('Введите текст:');
readln(s);
s:=s+' ';
st1:=''; st2:='';
s1:=''; s2:=''; mn:=[]; b:=false;
while pos('  ',s)>0 do delete(s,pos('  ',s),1);
for i:=1 to length(s) do
 if s[i]<>' '
  then begin 
       s1:=s[i]+s1;
       s2:=s2+s[i];
       if s[i] in mn then b:=true;
       mn:=mn+[s[i]];
       end
  else begin
       if s1=s2 then st1:=st1+s1+' ';
       if not b then st2:=st2+s2+' ';
       s1:=''; s2:=''; mn:=[]; b:=false;
       end;
if st1<>''
 then writeln('Слова-перевёртыши: ',st1)
 else writeln('Слов-перевёртышей нет');
if st2<>''
 then writeln('Слова без повторяющихся букв: ',st2)
 else writeln('Слов без повторяющихся букв нет');
end.

Пример:
Введите текст:
заказ слово комок  пробел след пример огонь текст
Слова-перевёртыши: заказ комок 
Слова без повторяющихся букв: пробел след