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

以下是使用Pascal语言编写的程序，实现了查找字符串中间位置的分号位置，并以此分号将字符串分割为前后两个字符串的功能：

program FindSemicolon;

var
  inputString, firstString, secondString: string;
  semicolonPosition: integer;

begin
  writeln('请输入一个字符串：');
  readln(inputString);

  semicolonPosition := (length(inputString) + 1) div 2; // 获取字符串中间位置的分号位置

  if inputString[semicolonPosition] = ';' then
  begin
    firstString := copy(inputString, 1, semicolonPosition - 1); // 获取分号前的字符串
    secondString := copy(inputString, semicolonPosition + 1, length(inputString)); // 获取分号后的字符串

    writeln('分号位置：', semicolonPosition);
    writeln('分号前的字符串：', firstString);
    writeln('分号后的字符串：', secondString);
  end
  else
  begin
    writeln('字符串中间位置没有分号。');
  end;

  readln;
end.

运行程序后，会要求用户输入一个字符串。然后程序会查找字符串中间位置的分号位置，并以此分号将字符串分割为前后两个字符串。如果字符串中间位置没有分号，程序会给出相应的提示信息。最后，程序会输出分号位置、分号前的字符串和分号后的字符串。