Var r, i: Integer;
 mas: array[1..10] of char;
 str1: string;

begin
  r:=ReadValue('var');
  if r = 1 then
  Begin
    str1:= LoadFromTxtFile('c:\test.txt',0);

    for i := 1 to 10 do
    begin
    mas[i]:= copy(str1, i, 1);
    ShowMessage(mas[i]);
    WriteValue('s '+IntToStr(i),Ord( mas[i]));
    end;


   { WriteValue('s 1',Ord( mas[1]));
      WriteValue('s 2',Ord( mas[2]));
      WriteValue('s 3',Ord( mas[3]));
      WriteValue('s 4',Ord( mas[4]));
      WriteValue('s 5',Ord( mas[5]));
      WriteValue('s 6',Ord( mas[6]));
      WriteValue('s 7',Ord( mas[7]));
      WriteValue('s 8',Ord( mas[8]));
      WriteValue('s 9',Ord( mas[9]));
      WriteValue('s 10',Ord( mas[10]));  }
  end ;

end.