Неправильно записывает типизированый файл!

type
  pInfo = record
    name:array[1..255] of string[10]; // Имя
    family:array[1..255] of string[25]; // Фамилия
    patronymic:array[1..255] of string[25]; // Отчество
    day:array[1..255] of integer; // День
    month:array[1..255] of integer; // Месяц
    year:array[1..255] of integer; // Год
    street:array[1..255] of string[25]; // Улица
    home:array[1..255] of integer; // Дом
    apartment:array[1..255] of integer; // Квартира
    PhoneNumber:array[1..255] of string[12]; // Номер телефона
  end;
var
  data:pInfo;
  f:file of pInfo;
  i,c,k,j,Code:integer;
  amountPerson,numberSpaces:integer; // Количество: человек, пробелов
  amountPersonEqual,amountPersonEqualM1:integer; // Проверка на количество людей
  pName,pFamily,pPatronymic,pSpace,pBirthday,pNumber:integer; // Проверка на запись: имени,фамилии отчества, пробелов
  pDay,pMonth,pYear:string;
  posFullName,posFullNameCopy,posBirthday,posAdress:integer; // Откуда,куда копировать
  fullName,pBirthdayString,pAdress,pHome,pApartment,pPhone:string; // Вводимое имя,фамилия отчество
  fileName:string; // Файл с данными пользователя
begin
  writeln('Введите количество человек: ');
  while amountPerson < 1 do begin
  readln(amountPerson);
  end;
  while not(amountPersonEqual = amountPerson) do begin
    writeln('Введите ФИО: ');
    readln(fullName);
    fullName:=fullName + ' ';
    c:=length(fullName);
    c:=c-1;
    amountPersonEqual:=amountPersonEqual + 1;
    for i:=1 to c do begin
      if (fullName[i] = ' ') and (fullName[i+1] = ' ') then begin
        delete(fullName,i,1);
      end;
    end;
    for i:=1 to length(fullName) do begin
      if fullName[i] = ' ' then begin
        numberSpaces:= numberSpaces + 1;
      end;
    end;
    if not(numberSpaces = 3) then begin
      numberSpaces:= 0;
      amountPersonEqual:=amountPersonEqual - 1;
    end;
    if amountPersonEqual > amountPersonEqualM1 then begin
      k:=k+1;
      pFamily:= 0;
      pName:= 0;
      pPatronymic:= 0;
      for i:=1 to length(fullName) do begin
        if pFamily = 0 then begin
          if fullName[i] = ' ' then begin
            data.family[k] := copy(fullName,1,i-1);
            pFamily:=1;
            posFullName:= i + 1;
          end;
        end
        else if (pFamily = 1) and (pName = 0) then begin
          if fullName[i] = ' ' then begin
            for j:=1 to length(fullName) do begin
              if fullName[j] = ' ' then begin
                pSpace:= pSpace + 1;
                if pSpace = 2 then begin
                  posFullNameCopy:= j - posFullName;
                end;
              end;
            end;
            data.name[k] := copy(fullName,posFullName,posFullNameCopy);
            posFullName := i + 1;
            pName:=1;
            pSpace:=0;
          end;
        end
        else if (pName = 1) and (pPatronymic = 0) then begin
          if fullName[i] = ' ' then begin
            for j:=1 to length(fullName) do begin
              if fullName[j] = ' ' then begin
                pSpace:= pSpace + 1;
                if pSpace = 3 then begin
                  posFullNameCopy:= length(fullName) - posFullName;
                end;
              end;
            end;
            data.patronymic[k] := copy(fullName,posFullName,posFullNameCopy);
            posFullName := 0;
          end;
        end;
      end;
      pSpace:= 0;
      writeln('Введите дату рождения (дд/мм/гг): ');
      while pBirthday < 6 do begin
        readln(pBirthdayString);
        pBirthdayString:=pBirthdayString + ' ';
        for i:=1 to length(pBirthdayString) do begin
          if (pBirthdayString[i] = ' ') or (pBirthdayString[i] = '.') or (pBirthdayString[i] = '/') then begin
            pSpace:=pSpace+1;
            if pSpace = 1 then begin
              pDay := copy(pBirthdayString,1,i-1);
              val(pDay,data.day[k],Code);
              posBirthday:=i+2;
            end
            else if pSpace = 2 then begin
              pMonth := copy(pBirthdayString,posBirthday,2);
              val(pMonth,data.month[k],Code);
              posBirthday:=i+1;
            end
            else if pSpace = 3 then begin
              pYear := copy(pBirthdayString,posBirthday,i-1);
              val(pYear,data.year[k],Code);
            end;
          end;
        end;
        posBirthday:=0;
        pBirthday:=length(pBirthdayString);
      end;
      pSpace:=0;
      writeln('Введите улицу/номер дома/номер квартиры:');
      readln(pAdress);
      pAdress:=pAdress + ' ';
      for i:=1 to length(pAdress) do begin
        if (pAdress[i] = ' ') or (pAdress = ',') then begin
          pSpace:=pSpace+1;
          if pSpace = 1 then begin
            data.street[k]:=copy(pAdress,1,i-1);
            posAdress:=i+1;
          end
          else if pSpace = 2 then begin
            pHome:=copy(pAdress,posAdress,i-posAdress);
            val(pHome,data.home[k],Code);
            posAdress:=i+1;
          end
          else if pSpace = 3 then begin
            pApartment:=copy(pAdress,posAdress,i-1);
            val(pApartment,data.apartment[k],Code);
          end;
        end;
      end;
      posAdress:=0;
      writeln('Введите номер телефона:');
      while (pNumber < 11) or (pNumber > 12) do begin
        readln(pPhone);
        pNumber:= length(pPhone);
        data.PhoneNumber[k]:=pPhone;
      end;
      fileName:=data.family[k] + ' ' + data.name[k] + ' ' + data.patronymic[k] + '.txt';
      assign(f,fileName);
      rewrite(f);
      write(f,data);
      close(f);
      amountPersonEqualM1:= amountPersonEqualM1 + 1;
      numberSpaces:=0;
    end;
  end;
end.