Bai tap ve kieu file trong pascal

Writeln m ;. Writeln n ;. Var f: text;. Readln f, n ;. Readln f,a[i] ;. Until seekEof f ;. Read f,a[i] ; inc i ;. Until Eoln f ;. Readln f,n,m ;. Readln f ;. Nguyen Van Hung 15 G. Bui Quang Than 14 K. Tran Minh Quang 16 G. Le Van Minh 15 T. Readln f, ht[i], t[i], xl[i] ;. Writeln ht[i],t[i]:4,xl[i]:3 ;. While not eof f do. Readln f,ht[i],t[i],xl[i] ;. Bai 1. Writeln f, m,' ',n ;. Readln f, m, n ;. Writeln m:4, n:4 ;.

Bai 2. Writeln f, m ;. Writeln f, n ;. Readln f, m ; Readln f, n ;. Writeln m ; Writeln n ;. Bai 3. Writeln f,n ;. Begin Writeln f,a[i] ; End;. Bai 4. Begin Write f,a[i],' ' ; End;. Writeln f ;. Bai 6. Writeln f,a[i] ;. While not seekeoln f do. Writeln a[i] ;. Bai 9. Writeln f, ht[i], t[i], xl[i] ;. Writeln ht[i], t[i]:4, xl[i]:3 ;. Var fin, fou: text;. Readln fin, n ; Writeln fou, n ;.

While not seekeoln fin do. Read fin,a[j] ;. Readln fin ;. Var f:Text; hoten:String[20]; c1, heso:real; c2,i,n,socon:byte;. Assign f,ten ;. Reset f ;.

Append f ;. Else Rewrite f ;. Writeln f,hoten ;. Writeln f,heso ;. Writeln f,socon ;. Close f ;. While not eof f do. Readln f,hoten ;. Readln f,heso ;. Readln f,socon ;. Uses crt;.

Var bt:file of byte; i:byte; n:real;. Rewrite bt ;. Reset bt ;. While not eof BT do. Read bt,i ; write i:5 ;. Textcolor magenta ;. Read bt,i ;. Var Bientep:File;. Rewrite bientep, n ;. Reset bientep, n ;. BlockRead bientep,biennho,i,j ;. BlockWrite bientep,biennho,i ;.