Ответ:

Объяснение:

Во-первых, если Вы пишете в PascalABC.NET, можно писать это проще и короче, не заморачиваясь с типами данных.

begin

 var c := ReadlnChar('Введите символ s');

 var s := OrdAnsi(c);

 Writeln('Код введённого символа - ', s)

end.

Во-аторых, если Вы все же хотите в современном PascalABC.NET писать, как в Delphi образца 2005 года, пишите хотя бы правильно:

var

 s:integer;

 c:char;

begin

 writeln('Введите символ s');

 readln(c);

 s:= ordAnsi(c);

 writeln('Код введённого символа - ', s);

end.