1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

program AsciiCodeausgeben;
{$APPTYPE CONSOLE}
uses sysutils;
var v: string;
    charly: array[1..100] of string;
    i:integer;
    w:integer;
begin
   i:=1;
   writeln('Geben Sie einen Buchstaben ein!Beenden Sie mit Eingabe von "."');
   begin
      repeat
       write('Buchstabe',i,':');
       read(v);
       w:=StrToInt((v));
         if w>#50 and w<#120 then           //hier liegt der FEHLER!
         begin
            charly[i]:=v;
            i:=i+1;
            writeln('ASCII-Code:',StrToInt((v)),'');
            readln;
         end;
      until v='.';
   end;
end.					

1:

w:= ord(v[1]);