Удалить все элементы массива, расположенные перед последним символом пробела

var
 n,i,ch,a,kol:longint;
begin
 readln(n);
 for i:=1 to n do
 begin
  redln(a);
   if(i=1)or(a<ch) then 
   begin
    ch:=a;
    kol:=0;
   end;
   if(a=ch) then kol:=kol+1;
  end;
end.

uses crt;
var f:file of char;
    c:char;
    n,i,ip,k,j:integer;
begin
assign(f,'111');
rewrite(f);
repeat
writeln('Сколько символов ввести в файл n=');
read(n);
writeln('Введите в файл символы, в том числе пробелы');
ip:=-1;
for i:=1 to n do
 begin
  read(c);
  write(f,c);
  if c=' ' then ip:=i-1;{находим индекс последнего пробела}
 end;
if ip=-1 then
 begin
  writeln('Вы не ввели ни одного пробела, повторите ввод');
  rewrite(f){очистим файл}
 end;
until ip>-1;
clrscr;
writeln('Содержание исходного файла:');
reset(f);
for i:=0 to filesize(f)-1 do
 begin
  read(f,c);
  write(c);
 end;
writeln;
if ip=filesize(f)-1 then{если последний символ пробел}
 begin
  writeln('Все элементы удалены');
  rewrite(f);{просто перезапишем пустой файл}
 end
else
 begin
  k:=filesize(f)-ip-1;{сколько останется}
  j:=filesize(f)-k;{сколько удалить}
  for i:=1 to k do{переставим все что после последнего пробела в начало}
   begin
    seek(f,ip+i);
    read(f,c);
    seek(f,i-1);
    write(f,c);
   end;
  seek(f,filesize(f)-j);{все остальное отрежем}
  truncate(f);
  writeln('Удаление элементов:');
  seek(f,0);
  while not eof(f) do
   begin
    read(f,c);
    write(c);
   end;
  close(f);
 end;
end.

uses crt;
var i,n,c,k,min: integer;
begin
write('n=');
readln(n);
write('-->');
readln(c);
min:=c;
inc(k);
for i:=2 to n do
    begin
    write('-->');
    readln(c);
    if c<min then
       begin
       k:=0;
       min:=c;
       end;
    if c=min then inc(k);
    end;
writeln('Мин. элемент =',min,' в количестве ',k);
end.