Какие люди живут мире вообразиля​

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

имя       возраст     занятие

оля         13             пение

петя         14           баскетбол

вася         13             хоккей

катя         15             танцы

коля         11         баскетбол

серёжа     11           футбол

чтение из файла обычно пишется readln(f,s) где f имя файловой переменной так что скорей всего нужно вставить

readln(input,s); s: =s+' '; f: =0; for i: = 1 to length(s) do beginif s[i]< > ' ' then r: =r+s[i]; if s[i]=' ' then begin k: =k+1; d[k]: =r; r: =''; end; end; readln(input,n); for i: = 1 to n do beginreadln(input,sait[i]); readln(input,tegs[i]); readln(input,pop[i]);

соответственно и запись в файл write(f,s)