Мне надо вывести номер буквы в алфавите имени sima var a : array [1..4] of char; i: integer; begin a[1]: ='s'; a[2]: ='i'; a[3]: ='m'; a[4]: ='a'; for i: =1 to 4 do write(ord(a[i])-191,' '); end. исправьте ошибку. мне выдаёт -108 -118 -114 -126 но это не правильно

Var
    a: array [1..4] of char;
    i: integer;

begin
    a[1] := 'S';
    a[2] := 'I';
    a[3] := 'M';
    a[4] := 'A';
    
    for i := 1 to 4 do
        write(ord(a[i]) - 64, ' ');
end.

 а самостоятельно подобрать число никак?