помогите написать прогу на delphi

[Volt]

Помогите написать программу, в которой требуется сформировать два файла символьного типа. Преобразовать файлы: удалить текст в первом файле после первой точки, а во втором после первой запятой.
оч надо! ребят помогите

program PROJECT;

uses
SysUtils;

var f1,f2: textfile;
st: string;
c: char;
i: integer;

begin
randomize;
assign(f1,'f1.txt');
assign(f2,'f2.txt');
rewrite(f1);
rewrite(f2);
for i:=1 to 100 do
begin
write(f1,chr(random(500)-250):5);
write(f2,chr(random(94)+33):3);
end;
close(f1);
reset(f1);
close(f2);
reset(f2);