создать массив из 4х элементов каждому элементу присвоить по букве из своего имени...

Question

создать массив из 4х элементов
каждому элементу присвоить по букве из своего имени
вывести на экран шийровку буквы (ее номер в алфавите)

Я писала программу, но мне выдало ошибку "Нельзя преобразовать тип char к integerа программу" Напишите что исправить.

Answer 1

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.