用pascal语言写一段程序实现如下功能：查找字符串中的地30个分号的位置并以该分号为分界线将字符串分割为前后两个字符串

以下是用Pascal语言编写的程序，实现了上述功能：

program SplitString;

var
  inputString, beforeString, afterString: string;
  semicolonCount, semicolonIndex, i: integer;

begin
  // 获取输入字符串
  writeln('请输入一个字符串：');
  readln(inputString);
  
  semicolonCount := 0;
  
  // 统计分号的个数
  for i := 1 to length(inputString) do
  begin
    if inputString[i] = ';' then
      semicolonCount := semicolonCount + 1;
      
    if semicolonCount = 30 then
    begin
      semicolonIndex := i;
      break;
    end;
  end;
  
  // 分割字符串
  beforeString := copy(inputString, 1, semicolonIndex - 1);
  afterString := copy(inputString, semicolonIndex + 1, length(inputString) - semicolonIndex);
  
  // 输出结果
  writeln('分号位置：', semicolonIndex);
  writeln('分割后的前半部分字符串：', beforeString);
  writeln('分割后的后半部分字符串：', afterString);
  
  readln;
end.

使用该程序，您可以在控制台输入一个字符串，然后程序将查找该字符串中的第30个分号的位置，并以该分号为分界线，将字符串分割为前后两个字符串。最后，程序将输出分号位置以及分割后的前后两个字符串。