Можно ли как-то переделать чтобы было не ToPoint а

Const Sz = 1000; var   a: array [1..Sz] of integer;  a1: array [1..Sz] of integer;  a2: array [1..Sz] of integer;  a3: array [1..Sz] of integer;  M: integer;  N: integer;  i: integer;  k: integer;begin  read(M);  readln(N);  for k:=1 to N do begin    read(a[i]);    readln(a1[i]);    if (a[i]<>0) then a3[i]:=1 else a3[i]:=0;    end;  for k:=1 to N do begin  if(a3[i]<>0) then begin  for i:=1 to i do begin  if(a3[k]=0) then d[i]:=1;  if (a2[k]=i) then d[k]:=0;   end;   writeln(a3[i])  end;end;end.
вроде так

а) буквы в словах слева направо разбивают на группы по две буквы в каждой, дальше меняют местами буквы в группах (если в слове нечётное количество букв, последнюю букву не переставляют):
урок, весна, каникулы, информация, мокрому дождь не страшен;
б) первую буква слова ставят последней, вторую - предпоследней и т. д.:
арена, корзина, рюкзак;
в) (наверное, АКЛАН, а не АНКЛАН?) также, как и в а), но если в слове нечётное количество букв, то последняя группа состоит из трёх букв и в ней 1-ая буква становится 3-ей, а 3-я - 1-ой:
канал, гитара, телевизор;
г) пронумеруем буквы слова слева направо: 0, 1, 2, ..., n-2, n-1, n. Вначале поставим букву под номером 0, потом n, затем 1, далее n-1 и т.д.:
балкон, вагон, кабинет.