pascalabcnet/TestSuite/CompilationSamples/StringInteger2.pas

// Преобразование целое <-> строка в старом стиле (Val и Str)
var 
  s: string;
  i: integer;

begin
  // Преобразование целого в строку
  i := 234;
  Str(i,s);
  writelnFormat('Целое: {0}. После преобразования к строке: ''{1}''',i,s);
  
  // Преобразование строки в целое 
  s := '567';
  var err: integer;
  Val(s,i,err);
  if err=0 then
    writelnFormat('Строка: ''{0}''. После преобразования к целому: {1}',s,i);
end.