Люди помогите пожалуйста решить задачу в делфи я ничерта не понимаю=(

Это не делфи, а паскаль, на делфи можно и по другому сделать.
Ваше задание:
Создайте два текстовых файла:
первый содержит целые числа,
второй - любые символы.
Посмотрите содержимое созданных файлов.
Составьте строку из символов-букв второго файла.

Program FileDat1Dat2;

var
zi : Integer;
zc : char;
i : Integer;
f1 : file of Integer;
f2 : file of char;
str : String;

begin
assign(f1,'d:\file1.dat'); {связывание файловой переменной с файлом}
rewrite(f1); {открыть файл для записи}

writeln('');
writeln('WRITE 5 INTEGER IN file1.dat');

{запишем 5 чисел в файл}
for i:=1 to 5 do
begin
write(i, '=');
readln(zi); {чтение числа}
write(f1, zi); {запись числа в файл}
end;

assign(f2,'d:\file2.dat'); {связывание файловой переменной с файлом}
rewrite(f2); {открыть файл для записи}

writeln('');
writeln('WRITE 5 CHAR IN file2.dat');

{запишем 5 символов в файл}
for i:=1 to 5 do
begin
write(i, '=');
readln(zc); {чтение символа}
write(f2, zc); {запись символа в файл}
end;

close(f1); {закрыть файл}
close(f2); {закрыть файл}

{чтение из файлов}
writeln('');
writeln('READ file1.dat');
reset(f1); {откроем для чтения}
while not eof(f1) do {пока не конец файла}
begin
read(f1, zi); {чтение числа}
writeln(zi); { выводим на экран}
end;

str := ''; {строка для сбора всех символов}

writeln('');
writeln('READ file2.dat');
reset(f2); {откроем для чтения}
while not eof(f2) do {пока не конец файла}
begin
read(f2, zc); {чтение символа}
writeln(zc); { выводим на экран}
str := str + zc; {добавим к строке}
end;

writeln('');
write('str=', str);
writeln('');

close(f1); {закрыть файл}
close(f2); {закрыть файл}

writeln('');
readln;
end.

ЕСЛИ ПРОГРАММИРОВАНИЕ ВАМ НЕ ДАНО, ТО НЕ НАДО ИДТИ НА ЭТУ СПЕЦИАЛЬНОСТЬ.
ВСЕ ПОБОЛЕЕ СЛОЖНОЕ ТОЛЬКО ЗА ДЕНЬГИ, ТАК КАК БОЛЬШЕ ЧЕМ ПОЛЧАСА ЗА БЕСПЛАТНО Я НЕ ДЕЛАЮ.