pascal в С

[yana1996]

Помогите пожалуйста переделать код с Pascal в С

procedure TForm1.Button1Click(Sender: TObject);
var
  f:textfile;
  s:string;
begin
  assignfile(f,'fin.txt');
  rewrite(f);
  s:=memo1.text;
  write(f,s);
  closefile(f);
end;
 
function GetToken(aString: string; TokenNum: Byte): string;
 
var
  SepChar: string;
  Token: string;
  StrLen: Byte;
  TNum: Byte;
  TEnd: Byte;
begin
  SepChar:=' '; // разделяем слова на пробелы
  StrLen := Length(aString);
  TNum := 1;
  TEnd := StrLen;
  while ((TNum <= TokenNum) and (TEnd <> 0)) do
  begin
    TEnd := Pos(SepChar, aString);
    if TEnd <> 0 then
    begin
      Token := Copy(aString, 1, TEnd - 1);
      Delete(aString, 1, TEnd);
      Inc(TNum);
    end
    else
    begin
      Token := aString;
    end;
  end;
  if TNum >= TokenNum then
  begin
    GetToken := Token;
  end
  else
  begin
    GetToken := '';
  end;
end;
 
 
procedure TForm1.Button2Click(Sender: TObject);
const
 gl=['A','a','E','e','I','i','O','o','U','u','Y','y']; //
var
  f:textfile;
  TObjectf2:file of myRec;
  sClientS,sClientS1,sClientS2,sClientS3:string;
  k,i,j:byte; //Вспомогательные переменые
  rec1:myRec;
begin
  memo2.clear;
  assignfile(f,'fin.txt');
  assignfile(TObjectf2,'fout.dat');
  reset(f); //Открыть
  rewrite(TObjectf2); //Создать , перезаписать файл
  k:=strtoint(edit1.text);//ВВодим число
  while not eof(f) do
    begin
      read(f,sClientS);// Читать из файла строку
    end;
  sClientS1:=GetToken(sClientS,k);//вызов функции
  j:=0;
  for i:=1 to length(sClientS1) do //Количество букв в слове
   begin
    if sClientS[i] in gl then inc(j); //Подсчет гласных букв
   end;
  sClientS2:=inttostr(j);
  sClientS3:=inttostr(length(sClientS1));
  memo2.lines.add('Слово: '+sClientS1);
  if k>i-i  then
  showmessage ('под таким номером слова нет');
  memo2.lines.add('Количество гласных: '+sClientS2);
  memo2.lines.add('Длина слова: '+sClientS3);
  rec1.str:=sClientS1;
  rec1.NubGl:=j;
  rec1.Leng:=length(sClientS1);
  write(TObjectf2,rec1);
  closefile(f);
  closefile(TObjectf2);
 
end;