Обрезать каждую строку после первой точки с запятой

var t:Text;
name,s:string;
i:integer;
begin
Writeln('Proga avtopark');
writeln('Put k failu');
Readln(name);
assign(t,name);
reset(t);
 
writeln('<< IsxodnbIu file >>');
    while not EOF(t) do
    begin
    readln(t,s);
 
    Writeln(s);
 
    end;
    readln
    end.

var t:Text;
    name,s:string;
begin
Writeln('Proga avtopark');
writeln('Put k failu');
Readln(name);
assign(t,name);
reset(t);
writeln('<< IsxodnbIu file >>');
while not EOF(t) do
 begin
  readln(t,s);
  Writeln(copy(s,1,pos(';',s)));
 end;
close(t);
readln
end.

 uses
  SysUtils;
 const rz=[';'];
var f:Text;
    name,t,sl,s:string;
    p:Byte;
begin
 
    assign(f,'C:\file.csv'); reset(f);
 
writeln('<< IsxodnbIu file >>');
while not EOF(f) do
 begin
  readln(f,t);
  Writeln(copy(t,pos(';',t)+1,pos(';',t)-1));      Обрезает по первой строчке все остальные, т.е. зависимость от количества символов до первой ";" и после до второй";"... никак не могу придумать как убрать зависимость остальных строк от первой строчки... 
 end;
   write('SLOVO POISKA ');
readln(sl);
while not eof(f) do
 begin
  readln(f,s);
  p:=pos(sl,s);
  if(p>0)
  and((p=1)or(s[p-1] in rz))
  and((p+length(sl)=length(s))or(s[p+length(sl)] in rz))
  then writeln(s);  Этот код по идее должен был вывести искомую строку на экран, но что то идет не так ) 
 
 end;
 
 readln
end.