明解Ｃ言語 入門編 > 9. 文字列の基本 > 文字列の走査 Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils;procedure put_string(str:String); var i: Integer; begin for i := 1 to Length(str) do write(str[i]); end;procedure main(); var str: S…