ファイル型の操作がうまくいきません(pascal)

質問

名前と電話番号を入力するとそれらのデータを外部環境のファイル'teldata'に出力し、内容を全て表示させるプログラムを作っています。
入力可能な人数は特に定めない・'teldata'はレコード型を成分とするファイル、という条件の下作成したのですがどうしてもエラーが出てしまいます。
どう改善すればいいのかご教授ください。

ソース）
program kadai(input,output,meibo);　　　　　｛line 3｝

type KojinData = record
name : packed array[1..20] of char;
tel : packed array[1..15] of char
end;
var meibo : file of KojinData;
x : array[1..100] of KojinData;
name : packed array[1..20] of char;
tel : packed array[1..15] of char;
i : integer;
begin
rewrite( meibo,'teldata' );
i :=0;
write('名前:');
readln( name );
repeat
i := i+1;
x[i].name := name;
write( meibo,x[i].name ); ｛line 23｝
write('電話番号');
readln( tel );
x[i].tel := tel;
write( meibo,x[i].tel );　　　　　　　　　｛line 27｝
write('名前:');
readln( name )
until (name='end');
reset( meibo,'teldata' );
while not eof( meibo ) do begin
for i := 1 to 100 do begin
read( meibo,x[i].name,x[i].tel );　　　　｛line 34｝
writeln( x[i].name,x[i].tel )
end
end
end.

エラーメッセージ）
E 25190 line 23 - Type clash: string is incompatible with record
... 25430: Type mismatch in write to non-text file
E 25190 line 27 - Type clash: string is incompatible with record
... 25430: Type mismatch in write to non-text file
E 25190 line 34 - Type clash: record is incompatible with string
E 25420 line 34 - Type mismatch in read from non-text file
E 25190 line 34 - Type clash: record is incompatible with string
E 25420 line 34 - Type mismatch in read from non-text file

次の課題の「検索したい人の名前を打ち込み対応する電話番号を答える」ようにもしたいので配列xを作り最大100人としています（人数を定めないように組めなかったのでとりあえず）。

回答No.1

osamuy · ベストアンサー

試さないで書いてますが、23行と27行は、

write( meibo, x );

――では。お使いの処理系のマニュアルを確認してみては。

試さないと思ったけど、一応実験コード：

program kadai;
type KojinData = record name:string; tel: string; end;
var x, y: KojinData; f: file of KojinData;
begin
assign( f, 'f.dat' ); rewrite( f );
x.name := 'de pascal'; x.tel := '0120-999-999';
write( f, x );
close( f );

reset( f );
read( f,y );
writeln( 'name:', y.name, ', tel:', y.tel );
end.

(* Turbo Pascal 5.5で試してます。使うの久し振りだ。 *)

お礼

ありがとうございます、助かりました。
変に難しく考えすぎてました。