В текстовом файле находятся записи о номерах телефонов. В каждой строке записана информация об одном абоненте: №телефона, ФИО, адрес.Написать программу, которая сортирует записи в файле в алфавитном порядке фамилий.Задачу необходимо решить с использованием процедур и функций.

Сам с файлами работаю плохо, да и паскаль идет не ахти... помогите решить плиззз... Заранее спасибо...

ЗЫ: надо решить к завтраму, но уж если не получиться, то можно и попожже... [Ответ]

А х*й там делать? Как раз за этот день можешь открыть книжку по Паскалю, пару часов почитать и решить, лично у меня так и было лет 6-7 назад. [Ответ]

Сообщение от ХАРЧО:
А х*й там делать? Как раз за этот день можешь открыть книжку по Паскалю, пару часов почитать и решить, лично у меня так и было лет 6-7 назад.

+8 символов. [Ответ]

Zhendos II, какая разница между работой с файлами, ну например и с обычной прогой с массивом? Это свой способ задачи? [Ответ]

Zhendos II, а можно поинтересоваться где учитесь? =) [Ответ]

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

program a;
uses crt;
const FileName1='input.txt';
FileName2='output.txt';
var
s:array[1..100] of string;
n:integer;
procedure ReadData; {читаем файл}
var FileVar:text;
begin
{$I-}
assign (FileVar,FileName1);
reset(FileVar);
{$I+}
if IOResult<>0 then
begin
Writeln('File ',FileName1,' not found');
exit;
end else
begin{1}
n:=1;
while not SeekEof(FileVar) do
begin
readln (FileVar,s[n]);
inc(n);
end;
close(FileVar);
end;
end;

procedure ProcessData;
begin
{ тут обрабатываем массив как угодно}
end;

procedure WriteData; {сохраняем результат}
var
FileVar:text;
i:integer;
begin
{$I-}
assign (FileVar,FileName2);
rewrite(FileVar);
{$I+}
if IOResult=0 then
begin
for i:=1 to n-1 do
begin
writeln(FileVar,s[i]);
end;
end;
close(FileVar);
end;
begin
clrscr;
readdata;
processData;
writedata;
Writeln('Happy end');
Writeln('Press any key to exit');
While not keypressed do;
end. [Ответ]

Andrei_K, спасибо...
gloomdemon, вопще то разницы нет, где я учусь... [Ответ]