1program kat(input, output); 2var 3 ch: char; 4 i: integer; 5 name: packed array [1..100] of char; 6begin 7 i := 1; 8 repeat 9 if i < argc then begin 10 argv(i, name); 11 reset(input, name); 12 i := i + 1 13 end; 14 while not eof do begin 15 while not eoln do begin 16 read(ch); 17 write(ch) 18 end; 19 readln; 20 writeln 21 end 22 until i >= argc 23end { kat }. 24