Программа паскаль(строки и записи)

[Falcao]

Нужно из одного файла взять фамилию имя отчество должность и тел.номер(3 цифры) и вывести в другой файл(для начала хотя бы на консоль), первоначальный файл в таком виде: "фамилия имя отчество должность и тел.номер"(в ряд), далее в зависимости от кол-ва сотрудников - столбиком... итак, что получилось у меня:

uses crt;
type info=record;
     name:string[10];
     surname:string[10];
     father:string[15];
     job:string[10];
     num:string[3];
       end;
var f1:text;
    a: array[1..100] of info;
    i: integer;
  Begin
assign(f1,'d:\l7.in');

reset(f1);

          for i:= 1 to 5 do
           with a[i] do
            readln(f1,surname,name,father,job,num);

close(f1);

for i:= 1 to 5 do
 with a[i] do
  writeln(surname, name,father,job,num);

end.

т.е. фамилия считывается как вся строка и выводит просто в столбик фамилии, помогите пожалуйста

[Stilet]

Неудачная конфигурация файла...

while not eof(f1) do begin
 readln(f1,s);
 with rec do begin
  i:=pos(' ',s);surname:=copy(s,1,i);delete(s,1,i+1);
  i:=pos(' ',s);name:=copy(s,1,i);delete(s,1,i+1);
  i:=pos(' ',s);father:=copy(s,1,i);delete(s,1,i+1);
  i:=pos(' ',s);job:=copy(s,1,i);delete(s,1,i+1);
   num:=copy(s,1,length(s));
 end;
тут выводим rec
end;

rec - переменка типа info

[Sciv]

var f1,f2: file of info;

и

for i:= 1 to 5 do begin
  read(f1,a[i]);
  with a[i] do write(f2,surname, name,father,job,num);
end;

[Falcao]

вряд ли этот вариант подойдёт, нужно выводить по елементах, в дальнейшем в задании идут варианты поиска фамилии или номера

[Sciv]

вряд ли этот вариант подойдёт

Вы вот это счас про который из двух предложенных?

[Stilet]

Sciv

Так у него текстовый файл:

файл в таком виде: "фамилия имя отчество должность и тел.номер"(в ряд)

Как бы записи не имеют фиксированный размер. Если я правильно понял...

[Falcao]

как я понял, нужно считывать фам(и-тая) имя(и-тое) и т.д.
со строками вообще гемор, а на парах не объяснили(
в задании 10 рядов сказано, я решил 5, разницы не вижу

[Sciv]

Так у него текстовый файл:

В задании это нигде явно не указано, зато в коде юзается record

Как бы записи не имеют фиксированный размер. Если я правильно понял...

А если разбирать эту запись - как раз таки имеют, ибо строки лимитированные

type info=record;
     name:string[10];
     surname:string[10];
     father:string[15];
     job:string[10];
     num:string[3];
       end;

[Stilet]

10 рядов

Рядов чего? Тип файла какой? Как он изнутри выглядит?

зато в коде юзается record

Я тоже для работы с текстовыми файлами иногда записи использую (инога даже лимитированные чтоб отмаршалить потом в другую систему проще было), так что это не показатель.

[Sciv]

Я тоже для работы с текстовыми файлами иногда записи использую (инога даже лимитированные чтоб отмаршалить потом в другую систему проще было), так что это не показатель.

Согласен, что не показатель. Сам когда-то так делал, потом пришел к выводу, что это не есть удобно - и перешел на Delphi+БД