Напечатайте в столбик числовые коды букв введенного слова

var s: string;
procedure writecod (s: string);
var i: byte;
begin
for i:= 1 to length (s) do
writeln (ord(s[i]));
end;
begin
readln (s);
writecod(s);
end.

program Dekio;
const
n=10;
var
arr :array[1..n] of integer;
i,j,t :integer;
begin
writeln('Введите массив');
for i:=1 to n do
readln(arr[i]);
writeln('Результат');
for i:=1 to n-1 do
for j:=i+1 to n do
 if arr[i] < arr[j] then
  begin
  t:=arr[i];
  arr[i]:=arr[j];
  arr[j]:=t;
  end;
for i:=1 to n do
write(arr[i]:4);
end.

Program laba7;
uses crt;
CONST
  N=10;
var
  i,j  : byte;
  Matr : array [1..N,1..N] of integer;
BEGIN
  clrscr;
  for i:=1 to N do
  for j:=1 to N do
  begin
    Matr[i,j]:=random(3);
    write('   ', Matr[i,j]);
  end;
  for i:=1 to N-1 do
    begin
      for j:=i to (N  div 2) do
        if Matr[i,j]<>Matr[i,N-j+1] then
          begin
            writeln('не симметричная');
            halt(0)
          end;
    end;
  writeln('симметричная');
END.