Народ кому не сложно помочь

[Strannik_kz]

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

[Strannik_kz]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Spin, StdCtrls, ComCtrls, Buttons;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
Button4: TButton;
Label1: TLabel;
Label2: TLabel;
ProgressBar1: TProgressBar;
BitBtn1: TBitBtn;
Label3: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if form1.OpenDialog1.Execute then
form1.Edit1.Text:=form1.OpenDialog1 .FileName;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if form1.SaveDialog1.Execute then
form1.Edit2.Text:=form1.SaveDialog1 .FileName;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
f1,f2:file of byte;
q,size:integer;
b1,b2:array [0..4095] of byte;
i,v,vt:integer;
begin
form1.ProgressBar1.Position:=0;
AssignFile(f1,form1.Edit1.Text);
AssignFile(f2,form1.Edit2.Text);
reset(f1);
rewrite(f2);
v:=filesize(f1);
while not eof(f1) do
begin
if (fileSize(f1)-filepos(f1))>4095 then
size:=4095
else
size:=(fileSize(f1)-filepos(f1));
blockread(f1,b1,size,q);
for i:=0 to size do
b2[i]:=b1[i]+128;
blockwrite(f2,b2,size,q);
vt:=filepos(f1);
form1.ProgressBar1.Position:=vt*100 div v;
end;
CloseFile(f2);
CloseFile(f1);
showmessage('Шифрование завершено');
form1.ProgressBar1.Position:=0;
end;

procedure TForm1.Button4Click(Sender: TObject);
var
f1,f2:file of byte;
q,size:integer;
b1,b2:array [0..4095] of byte;
i,v,vt:integer;
begin
form1.ProgressBar1.Position:=0;
AssignFile(f1,form1.Edit1.Text);
AssignFile(f2,form1.Edit2.Text);
reset(f1);
rewrite(f2);
v:=filesize(f1);
while not eof(f1) do
begin
if (fileSize(f1)-filepos(f1))>4095 then
size:=4095
else
size:=(fileSize(f1)-filepos(f1));
blockread(f1,b1,size,q);
for i:=0 to size do
b2[i]:=b1[i]-128;
blockwrite(f2,b2,size,q);
vt:=filepos(f1);
form1.ProgressBar1.Position:=vt*100 div v;
end;
CloseFile(f2);
CloseFile(f1);
showmessage('Дешифрование завершено');
form1.ProgressBar1.Position:=0;
end;

end.

Вот эту к типизорованным я так понял можно отнести я просто в них путаюсь

[Strannik_kz]

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