задачи по паскаль...файлы...

[Вера123]

привет...мне нужно сделать 4 программы...
Файлы :


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


2.Дан файл, содержащий различные даты. Каждая дата — это число, месяц и год. Найти :
а) год с наименьшим номером;
б) все весенние даты;
в) самую позднюю дату.


3.Имеется типизированный файл с числами. Найти (во всех случаях считать, что размер файла неизвестен) сумму всех чисел файла.


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

[Stilet]

самое длинное слово

Например так, если файл у тебя элемент файла стандартная строка 255 символов то:

var f:file of string;l:integer;s,e:string;
begin
 assign(f,'файл');reset(f);
 while not eof(f) do begin
  read(f,s);
  if length(s)>l then begin l:=length(s); e:=s;end;
 end;
 write('самое длинное это - ',e);
end.

Код не проверял.

[Вера123]

Ну вот...еще 3 осталось....

[Nightt]

плз помогите поправить задачу

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

const
	fin  = 'in.txt';
	fout = 'out.txt';

function upper(s:string):string;
var
	i:byte;
begin
	for i:=1 to length(s) do
		s[i] := chr(ord(s[i])-32);
	upper := s;
end;

var
	f1,f2:text;
	tmp:string;
begin
	assign(f1,fin); assign(f2,fout);
	reset(f1);      rewrite(f2);
	while not(eof(f1)) do begin
		readln(f1,tmp);
		writeln(f2,upper(tmp));
	end;
	close(f1); close(f2);
end.

ошибка File not found

[Anatole]

Nightt

ошибка File not found

файл 'in.txt' должен быть на диске в каталоге из которого запускается программа и не влазьте в чужие посты. Неужели тяжело создать свой?
Вера123
3)

var f:file of integer;i:integer;s : longint;
begin
 assign(f,'файл');reset(f);
 while not eof(f) do begin
  s :=0;
  read(f,i);
  s:=s+i;
  end;
 write('Summ= ',s);
end.