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 do readln(b); for j: =1 to 33 do x: =0; if (b=n[1+x])then v: =n[1+x+3]; z: =0; k[1+z]: =v; z: =z+1; else x: =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.