Удалить все элементы списка, содержащие числа большие, чем значение последнего

uses crt;
type Uk=^spisok;
     spisok=Record
            data:integer;
            next:Uk;
          end;
var s,s1,first:Uk;
    n,i,a,b:integer;
begin
randomize;
//создаем исходный список
repeat
write('Размер списка n>1 n=');
readln(n);
until n>1;
new(s);
first:=s;
s^.next:=nil;
s^.data:=random(100);
s1:=s;
for i:=2 to n do
 begin
  new(s);
  s^.data:=random(100);
  s^.next:=nil;
  s1^.next:=s;
  s1:=s;
  if i=n then b:=s^.data;
 end;
//выводим его на экран
writeln('Исходный список');
s:=first;
while (s<>nil) do
 begin
  write(s^.data,' ');
  s:=s^.next;
 end;
writeln;
writeln('Последнее число=',b);
//удаляем элементы
s:=first;
i:=0;
while s<>nil do
 begin
  if s^.data>b then //если число больше последнего
   begin
    i:=1;//есть больше
    if s=first then  //если элемент первый
     begin
      first:=first^.next;
      dispose(s);
      s:=first;
     end
    else //если не первый
     begin
      s1^.next:=s^.next;
      dispose(s);
      s:=s1^.next;
     end
    end
   else //если не больше
    begin
     s1:=s;
     s:=s^.next
    end
 end;
//выводим полученный список
if i=0 then write('Нет элементов для удаления')
else
 begin
  writeln('Удаление элементов, больших ',b);
  s:=first;
  while (s<>nil) do
   begin
    write(s^.data,' ');
    s:=s^.next;
   end;
 end;
end.