Нужно в стеке найти первое появление т элемента и поставить его в начало стека. Помогите, пожалуйста!!!

Может так:
type
StekType = ^tStekType;
tStekType = record
N : Integer;
Next : StekType;
end;
var
First, Temp : StekType;
N : Integer;
Obmen : Boolean;
begin
for N := 1 to 10 do
begin
New(Temp);
Temp^.N := Random(100);
if First = nil then begin First := Temp; First^.Next := nil; end
else begin Temp^.Next := First; First := Temp; end;
end;

Temp := First;
Write('Стек');
while Temp <> nil do
begin
Write(' -> ', Temp^.N);
Temp := Temp^.Next;
end;
WriteLn('.');

Write('Введите число Т = '); ReadLn(N);
if First^.N = N then WriteLn('Значение T = ', N, ' уже первое в стеке. ')
else begin
Temp := First;
Obmen := False;
repeat
if Temp^.N = N then
begin
Temp^.N := First^.N;
First^.N := N;
Obmen := True;
end
else
Temp := Temp^.Next;
until Obmen or (Temp = nil);
end;

if Not Obmen then WriteLn('Значение T = ', N, ' в стеке не найдено. ')
else begin
Temp := First;
Write('Стек');
while Temp <> nil do
begin
Write(' -> ', Temp^.N);
Temp := Temp^.Next;
end;
end;
WriteLn('.');
end.
Результат:
Стек -> 33 -> 8 -> 70 -> 69 -> 5 -> 97 -> 12 -> 21 -> 56 -> 53.
Введите число Т = 70
Стек -> 70 -> 8 -> 33 -> 69 -> 5 -> 97 -> 12 -> 21 -> 56 -> 53.
Хоть бы язык был озвучен!
А предыдущее задание вообще не полностью...