program shifer;var z,v,a,b,m,s,j,x:integer;k:array[1..100] of char;n:array[1..100] of char;begin n[1]:=а;n[2]:=б;n[3]:=в;n[4]:=г;n[5]:=д;n[6]:=е;n[7]:=ё;n[8]:=ж;n[9]:=з;n[10]:=и;n[11]:=й;n[12]:=к;n[13]:=л;n[14]:=м;n[15]:=н;n[16]:=о;n[17]:=п;n[18]:=р;n[19]:=с;n[20]:=т;n[21]:=у;n[22]:=ф;n[23]:=х;n[24]:=ц;n[25]:=ч;n[26]:=ш;n[27]:=щ;n[28]:=ъ;n[29]:=ы;n[30]:=ь;n[31]:=э;n[32]:=ю;n[33]:=я;n[34]:=а;n[35]:=б;n[36]:=в;readln(a);for m:=1 to a doreadln(b);for j:=1 to 33 do x:=0;if (b=n[1+x])thenv:=n[1+x+3];z:=0;k[1+z]:=v;z:=z+1; elsex:=x+1;end;end;writeln(k);end.где ошибка?

у if'ов небыло begin и end;
у значений массива n небыли проставленны ' ' одинарные кавычки для букв.
у b и v в условиях не те типы данных, поэтому немогут они внутрь себя вместить букву, а только цифры, исправил с integer на char.
не знаю что должна выводить программка, begin и end'ов нету и у циклов. Без begin и end'ов трудно мне просчитать что выведет программа.

Program shifer;var z,a,m,s,j,x:integer;b,v:char;k:array[1..100] of char;n:array[1..100] of char;BEGINn[1]:='а';n[2]:='б';n[3]:='в';n[4]:='г';n[5]:='д';n[6]:='е';n[7]:='ё';n[8]:='ж';n[9]:='з';n[10]:='и';n[11]:='й';n[12]:='к';n[13]:='л';n[14]:='м';n[15]:='н';n[16]:='о';n[17]:='п';n[18]:='р';n[19]:='с';n[20]:='т';n[21]:='у';n[22]:='ф';n[23]:='х';n[24]:='ц';n[25]:='ч';n[26]:='ш';n[27]:='щ';n[28]:='ъ';n[29]:='ы';n[30]:='ь';n[31]:='э';n[32]:='ю';n[33]:='я';n[34]:='а';n[35]:='б';n[36]:='в';readln(a);for m:=1 to a do  readln(b);  for j:=1 to 33 do     x:=0;    if b=n[1+x] then      begin        v:=n[1+x+3];        z:=0;        k[1+z]:=v;        z:=z+1;      end    else      begin        x:=x+1;      end;  writeln(k);END.

1. всё равно не работает