Задачи на обработку файлов. Паскаль!

[НужнаПомощь]

Записать в файл n целых чисел. Поменять местами первый и последний элементы файла.

Дан текстовый файл и некоторое слово. Создать новый текстовый файл, записав в
него те строки файла, которые заканчиваются данным словом.

Заполнить файл целыми числами, полученными с помощью генератора случайных чисел. Определить, сколько различных компонентов находится в файле.

[Streletz]

Самостоятельные попытки были? Ваши наработки?

[Stilet]

Ну а попытки какие-нить были?

[НужнаПомощь]

Да на первую пытался что-то написать

Var m,a:real;
 k,n:integer;
 s,word:string;
 f:text;
begin
 randomize;
 Assign(F,'text.txt');
 append(f);
 writeln('Введите количество целых чисел');
 read(n);
 For k:=1 to n do begin
 a:=random(10);
 write(f,a,' ');
 end;

Не знаю что дальше писать

[Serge_Bliznykov]

неверно. у Вас текстовый файл, а в задании указан файл целых чисел, это файл, компонентами котого являются целые числа (так называемый "типизированный файл").

Поэтому программа будет выглядеть примерно так:

Var 
 i,k,m,n:integer;
 f:file of integer;
begin
 randomize;
 Assign(F,'MyFile1.dat');
 writeln('Введите количество целых чисел');
 readln(n);
 For i:=1 to n do
    write(f, random(10));
 close(f);  {всё. файл создан}

 {выдадим содержимое файла на экран}
 Reset(f); {открыть файл}
 Write('содержимое файла: ');
 for i:=1 to FileSize(f) do begin
   Read(f, k);
   Write(k:2,' ');
 end;
 Close(f); {закрыли файл}

 {поменяем местами первый и последний элементы файла}
 Reset(f); {открыли файл}
 Read(f, k); {прочитали первый элемент из файла}
 Seek(f, FileSize(f)-1); {установили указатель в файле на последний элемент}
 Read(f, m); {прочитали последний элемент из файла}
 Seek(f, FileSize(f)-1); {установили указатель в файле на последний элемент}
 Write(f, k); {записали первый элемент на место последнего элемента}
 Seek(0); {установили указатель на начало файла (на первый элемент)}
 Write(f, m); {записали последний элемент на место первого элемента}
 Close(f); {закрыли файл == сохранили изменения}


 {выдадим содержимое файла на экран}
 Reset(f); {открыть файл}
 Write('содержимое файла после замены: ');
 for i:=1 to FileSize(f) do begin
   Read(f, k);
   Write(k:2,' ');
 end;
 Close(f); {закрыли файл}

end.

код я не проверял, если что - поправите опечатки самостоятельно

[НужнаПомощь]

Спасибо...

[НужнаПомощь]

Не могли бы вы помочь еще с двумя другими задачами?