Найти число, полученное при перестановке первой и второй цифр трехзначного числа

[reapple]

procedure TForm1.Button1Click(Sender: TObject);
var x: integer; y:string;
begin
x:= StrToInt(Edit1.text);
y:=(x/100)*10+(x-(x/10)*10)+(x/10-x/100*10)*100;
Panel2.Caption:= IntToStr(y);
end;

end.

[Error] Unit1.pas(34): Incompatible types: 'String' and 'Extended'
выдает такую ошибку

а сама задача сформулирована: Дано трехзначное число. Найти число, полученное при перестановке первой и второй цифр заданного числа.

[evg_m]

y:integer;

x div 100 ;ЦЕЛОЧИСЛЕННОЕ (с остатком) деление
x mod 100; и САМ остаток от такого деления

[SASFM]

Пробуй делать так:

procedure TForm1.Button1Click(Sender: TObject);
var x,y: integer;
begin
x:= StrToInt(Edit1.text);
y:=(x mod 10)*100+((x div 10) mod 10)*10 +x div 100;
Panel2.Caption:= IntToStr(y);
end;
end.

Следующий раз не оформление кода будет предупреждение

[reapple]

спасибо, но сделала по другому