Шифр цезаря (не работает)

[Айдар]

задача такая сделать шифр цезаря, сдвиг 10, алфавит лат строчные буквы, язык паскаль (тр7) вот накидал но комп выдает ошибку

Function Cesar_Crypt (s:string):string;
Const
 SizeA = 26;
 EngA = 'ABCDEFGHIKLMNOPQRSTVXYZ';
Var i, P :integer;
 Temp,Result:string;
Begin
Temp:='';
For i := 1 to length (s) do if pos (s[i], EngA)<>0 then temp:=temp+s[i];
S:=temp;
For i:=1 to length (s) do
 Begin
 P:=pos (UpCase (s[i]), EngA)+10;
 If P>SizeA then P:=P-SizeA;
 Result:=Result+EngA[P];
 End;
End;



function Cesar_DeCrypt(s:string):string;
const
  SizeA = 33;
  EngA =
var i, P :integer;
    temp:string;
begin
s:=AnsiLowerCase(s);
temp:='';

for i := 1 to length(s) do if pos(s[i],EngA)<>0 then temp:=temp+s[i];
s:=temp;
for i:=1 to length(s) do
  begin
  P:=pos(s[i],EngA)-10;
  if P<=0 then P:=P+SizeA;
  Result:=Result+EngA[P];
  end;
end;

begin

Cesar_Crypt:=result;;
end.

[Z1000000]

PascalABC

//Шифрование Цезаря
function Cesar_Crypt(s:string):string;
const
  SizeA = 34; //Размер алфавита
  RusA = 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя '; //Алфавит
var i, P :integer;
    temp:string;
begin
Result := '';
s:=LowerCase(s);
temp:='';
//удаление символов сообщения, не входящих в наш алфавит
for i := 1 to length(s) do if pos(s[i],RusA)<>0 then temp:=temp+s[i];
s:=temp;
for i:=1 to length(s) do
  begin
  P:=pos(s[i],RusA)+3;
  if P>SizeA then P:=P-SizeA;
  Result:=Result+RusA[P];
  end;
end;

//Дешифрование Цезаря
function Cesar_DeCrypt(s:string):string;
const
  SizeA = 34; //Размер алфавита
  RusA = 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя '; //Алфавит
var i, P :integer;
    temp:string;
begin
Result := '';
s:=LowerCase(s);
temp:='';
//удаление символов сообщения, не входящих в наш алфавит
for i := 1 to length(s) do if pos(s[i],RusA)<>0 then temp:=temp+s[i];
s:=temp;
for i:=1 to length(s) do
  begin
  P:=pos(s[i],RusA)-3;
  if P<=0 then P:=P+SizeA;
  Result:=Result+RusA[P];
  end;
end;

var
 aStr : String;
begin
aStr := Cesar_Crypt ( 'дом милый дом' );
writeln ( aStr );
writeln (Cesar_DeCrypt(aStr));
end.

[Айдар]

у меня тут EngA[P]; выдает ошибку, не могли бы вы мне скомпилировать раб программу, с таким алфавитом EngA = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';

[Z1000000]

В чем скомпилировать ?

//Шифрование Цезаря
function Cesar_Crypt(s:string):string;
const
  RusA = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ '; //Алфавит
var i, P, SizeA :integer;
    temp:string;
begin
Result := '';
SizeA := Length(RusA); //Размер алфавита
s:=UpperCase(s);
temp:='';
//удаление символов сообщения, не входящих в наш алфавит
for i := 1 to length(s) do if pos(s[i],RusA)<>0 then temp:=temp+s[i];
s:=temp;
for i:=1 to length(s) do
  begin
  P:=pos(s[i],RusA)+3;
  if P>SizeA then P:=P-SizeA;
  Result:=Result+RusA[P];
  end;
end;

//Дешифрование Цезаря
function Cesar_DeCrypt(s:string):string;
const
  RusA = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ '; //Алфавит
var i, P,SizeA :integer;
    temp:string;
begin
Result := '';
SizeA := Length(RusA); //Размер алфавита
s:=UpperCase(s);
temp:='';
//удаление символов сообщения, не входящих в наш алфавит
for i := 1 to length(s) do if pos(s[i],RusA)<>0 then temp:=temp+s[i];
s:=temp;
for i:=1 to length(s) do
  begin
  P:=pos(s[i],RusA)-3;
  if P<=0 then P:=P+SizeA;
  Result:=Result+RusA[P];
  end;
end;

var
 aStr : String;
begin
aStr := Cesar_Crypt ( 'HOUSE SWETTY HOUSE' );
writeln ( aStr );
writeln (Cesar_DeCrypt(aStr));
end.