Строки и символы. Тексты программ

Определение кода по символу и символа по коду

var 
  c: char;
  code: integer;
begin
  c := 'z';
  code := Ord(c);
  writeln('Код символа ',c,' равен ',code);
  code := 35;
  c := Chr(code);
  writeln('Символ с кодом ',code,' - это ',c);
end.

Преобразование цифрового символа в соответствующее однозначное число и обратно

var 
  c: char;
  digit: integer;
begin
  c := '5';
  digit := Ord(c) - Ord('0');
  writeln('Цифра, соответствующая символу ''',c,''' - это ',digit);
  digit := 7;
  c := Chr(digit + Ord('0'));
  writeln('Символ цифры ',digit,' - это ''',c,'''');
end.

Преобразование числа в строку и обратно

var 
  s: string;
  num: integer;
begin
  s := '356';
  num := StrToInt(s);
  writeln('Число, соответствующее строке ''',s,''' - это ',num);
  num := 563;
  s := IntToStr(num);
  writeln('Строка, соответствующая числу ',num,' - это ''',s,'''');
end.

Формирование строки из n одинаковых символов

var 
  c: char;
  s: string;
  n: integer;
begin
  n := 10;
  c := 'z';
  s := '';
  for var i:=1 to n do
    s += c;
  writeln(s);
end.

Ссылки

Программы для начинающих