Дельфи, задача перевод десятичного числа в восьмеричную

[zoomgel]

Здравствуйте. Собственно, сабж.
Вот тут "насочиняла" немного, и всё, ступор.
Помогите, пожалуйста, кто чем может.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Button1: TButton;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
a,k:string;
b,i,d,c,j,r,z,s:integer;
    begin
          a:=edit1.Text;
          b:=StrToInt(a);
          i:=b;
          while i>8 do

          begin
            d:=i;
            i=:i div 8;
            c:=d-(i*8);
            k:k+IntTostr(c);

    end;

        j:=(lengh(S);
        r:=j
        while r>0 do
    begin
        z:=z+s(r);
        r:=r-1;

end.

[VadikV]

k := '';
repeat
   k := IntToStr(i mod 8) + k;
   i := i div 8;
until i <> 0;

В к получишь число в восьмеричной

[Hacker19_90]

    i := 1;
    Oct := 0;
    while (Dec > 8) do
    begin
        Oct := Oct + i*(Dec mod 8);
        Dec := Dec div 8;
        i := i*10;
    end;
    Oct := Oct + i*Dec;

Oct нужное число!!!

[zoomgel]

Ругается на следующую строку:

i=:i div 8;

В чём может быть дело?

АПД: понятно..

[Hacker19_90]

i=:i div 8;

Надо :=

[zoomgel]

Спасибо большое, люди.

теперь ругаеццо на:

j:=(lengh(S);

i := 1;
Oct := 0;
while (Dec > 8) do
begin
Oct := Oct + i*(Dec mod 8);
Dec := Dec div 8;
i := i*10;
end;
Oct := Oct + i*Dec;

Oct нужное число!!!

К сожалению мы это не проходили на занятии, поэтому я не могу писать через Oct и Dec.
Простите за ламерство.

[Hacker19_90]

Oct Gec это переменные!!!! Назови их как хочешь!!!

[Serge_Bliznykov]

Oct и Dec

- это ИМЕНА переменных!

var 
   Oct, Dec : integer;

не нравится Oct, Dec - обзовите их O1 и D2

j:=(lengh(S);

правильно, length(S)

[zoomgel]

упс, понятно.
Ладно. Вообщем так, на length(S) всё равно ругаеццо.

Попробовала вот так еще

procedure TForm1.Button1Click(Sender: TObject);
var
i,Oct, Dec : integer;
begin
i := 1;
Oct := 0;
while (Dec > 8) do
begin
Oct := Oct + i*(Dec mod 8);
Dec := Dec div 8;
i := i*10;
end;
Oct := Oct + i*Dec;

end;

end.

Запускается, но никаких вычислений не делает

И, еще вопрос, неужели без StrToInt можно обойтись?

(Еще раз благодарю за терпение)

[Hacker19_90]

Вы с начало Dec ПРИСВОЙТЕ значение А после всего ВЫВЕДИТЕ Oct(посмотрите)!!!