Дано площадь круга s, найти его диаметр д и длину окружности l

using System;
using System.IO;

namespace FileApp
{
    class MainClass
    {
        private const string FILE_PATH = ""; //Запишите сюда путь к файлу
        private const string PHRASE = ""; //Запишите сюда заданный текст

        public static void Main(string[] args)
        {
            string[] rows = File.ReadAllLines(FILE_PATH);

            foreach (var row in rows)
            {
                //Если нужно сделать это все независимым к регистру, то раскоментируйте это и  закоментируйте вариант нижу
                //if(row.ToLower().Contains(PHRASE.ToLower()))
                //{
                //  Console.WriteLine(row);
                //}

                if (row.Contains(PHRASE))
                {
                    Console.WriteLine(row);
                }
            }
        }
    }
}

Var
  l,i:integer;
  s,w:string;
  prt:boolean;
  c:char;

begin
  { s:='  Арбуз    вагон  барабан Goodday   dummy.  '; }
  Write('Введите строку: ');
  Readln(s);
  l:=Pos('.',s);
  s:=Copy(s,1,l-1)+' ';
  i:=1;
  prt:=False;
  w:='';
  while i<=l do
  begin
    c:=s[i];
    if c=' ' then
    begin
      if prt then
        begin
        if Length(w)>2 then Write(Copy(w,1,Length(w)-2),' ');
        w:='';
        prt:=not prt
        end
    end
    else
    begin
      w:=w+s[i];
      prt:=True
    end;  
    Inc(i)
  end;
  Writeln
end.