Распечатать то предложение, в котором указанный символ встречается большее количество раз

uses crt;
function MyPos(s:string;c:char;k:byte):byte;
var i,p:byte;
begin
p:=0;
for i:=k to length(s) do
if s[i]=c then
 begin
  p:=i;
  break;
 end;
MyPos:=p;
end;
var s1,s2:string;
    ch:char;
    i,k1,k2:byte;
begin
clrscr;
writeln('Первое предложение:');
readln(s1);
writeln('Второе предложение:');
readln(s2);
write('Искать символ ch=');
readln(ch);
k1:=0;
i:=1;
while i<=length(s1)do
if MyPos(s1,ch,i)>0 then
  begin
   k1:=k1+1;
   i:=MyPos(s1,ch,i)+1;
  end
else i:=i+1;
writeln('k1=',k1);
i:=1;
while i<=length(s2)do
if MyPos(s2,ch,i)>0 then
  begin
   k2:=k2+1;
   i:=MyPos(s2,ch,i)+1;
  end
else i:=i+1;
writeln('k2=',k2);
if k1=k2 then
write('Символ ',ch,' встречается в предложения одинаковое число раз!')
else if k1>k2 then write(s1) else write(s2);
readln
end.

unit typ_file;
interface
const t=0.000001;{точность сравнения вещественных чисел}
type fail=file of real;
procedure WriteFile(var f:fail);{создание файла}
procedure ReadFile(var f:fail);{чтение файла}
procedure Pos(var f:fail;a:real;var p:integer);{нахождение позиции}
procedure Del_K(var f:fail;k:integer);{удаление по номеру позиции}
procedure Del_X(var f:fail;a:real);{удаление заданного элемента}
implementation
procedure WriteFile;
var x:real;
    s:string;
begin
write('Имя файла: ');
readln(s);
assign(f,s);
rewrite(f);
writeln('Введите в файл вещественные числа, окончание ввода ноль:');
repeat
readln(x);
write(f,x);
until x=0;
close(f);
end;
procedure ReadFile;
var x:real;
begin
{$I-}reset(f);{$I+}
if IOResult<>0 then
 begin
  writeln('Файл не создан! Создайте файл.');
  readln;
  WriteFile(f);
  exit;
 end;
while not eof(f) do
 begin
  read(f,x);
  write(x:5:2,' ');
 end;
readln;
close(f);
end;
procedure Pos;
var i:integer;
    x:real;
begin
{$I-}reset(f);{$I+}
if IOResult<>0 then
 begin
  writeln('Файл не создан! Создайте файл.');
  readln;
  WriteFile(f);
  exit;
 end;
write('Введите элемент для поиска позиции=');
readln(a);
p:=-1;
for i:=0 to filesize(f)-1 do
 begin
  read(f,x);
  if abs(x-a)<t then
   begin
    p:=i;
    break;
   end;
 end;
if p=-1 then writeln('Такого элемента в файле нет!')
else writeln('номер позиции=',p+1);
readln;
close(f);
end;
procedure Del_K;
var i:integer;
    x:real;
begin
{$I-}reset(f);{$I+}
if IOResult<>0 then
 begin
  writeln('Файл не создан! Создайте файл.');
  readln;
  WriteFile(f);
  exit;
 end;
write('Введите номер позиции для удаления=');
readln(k);
if (k<1)or(k>filesize(f))then
 begin
  writeln('Такой позиции в файле нет!');
  exit;
 end;
for i:=k-1 to filesize(f)-2 do
 begin
  seek(f,i+1);
  read(f,x);
  seek(f,i);
  write(f,x);
 end;
seek(f,filesize(f)-1);
truncate(f);
close(f);
end;
procedure Del_X;
var i,k,j:integer;
    x:real;
begin
{$I-}reset(f);{$I+}
if IOResult<>0 then
 begin
  writeln('Файл не создан! Создайте файл.');
  readln;
  WriteFile(f);
  exit;
 end;
write('Введите элемент для удаления: ');
readln(a);
k:=0;
i:=0;
while i<=filesize(f)-1 do
 begin
  seek(f,i);
  read(f,x);
  if abs(x-a)<t then
   begin
    k:=k+1;
    for j:=i to filesize(f)-2 do
     begin
      seek(f,j+1);
      read(f,x);
      seek(f,j);
      write(f,x);
     end;
   end
  else i:=i+1;
 end;
seek(f,filesize(f)-k);
truncate(f);
close(f);
end;
end.

uses crt,typ_file;
var g:fail;
    pz:integer;
    a:real;
    w:char;
begin
clrscr;
repeat
clrscr;
writeln('Выберите действие:');
writeln('1-создать новый файл');
writeln('2-найти позицию элемента');
writeln('3-удалить элемет с указанной позиции');
writeln('4-удалить заданные элементы');
writeln('5-прочитать файл');
writeln('другое-выход');
write('w=');readln(w);
case w of
'1':WriteFile(g);
'2':Pos(g,a,pz);
'3':Del_K(g,pz);
'4':Del_X(g,a);
'5':ReadFile(g);
else exit;
end;
until not (w in ['1'..'5']);
end.