Два задания в паскале-одно на текстовые файлы,др-ое на записи

[Novenkaja]

Добрый вечер всем.
Нужна ваша помощь.

У меня два задания,одно на текстовые файлы,др-ое на записи.

На записи надо сделать, т.к.я не до конца понимаю эту тему и как по ней работать, а по текстовым файлам у меня есть код, я вчера потратила много времени, но он не идёт, либо там где-то ошибка, либо я его не дописала,либо вообще моя программа глючит,т.к. в другом задании, которое я сделала так и было, хорошо хоть теперь у меня 2 прог-ы и, проверив во 2-ой, увидела, что задание сделала верно.

Насчёт текстовых файлов-если удобно искать ошибку по моему коду хорошо, если нет-можете составить свой код, я не против.

Задание по текстовым файлам

Написать программу,которая:
-считывает данные матрицы из текстового файла(в одной строке текста находится числа одной строки матрицы, которые отделены запятыми)
-высчитать сумму строк
-вычисленыt(посчитанные) суммы вписать в другой текстовой файл(все числа в одной строке)
-максимаоьынй размер матрицы 9 на 11

и вот мой код

program uzd_9;
type mas=array[1..11] of string;
var f1:text;
    notfinished:boolean;
    c:char;
    str1,element:string;    {element-элемент матрицы до конвертации}
    x:mas;
    i,converted:integer;    {converted-элемент матрицы после конвертацииs}
begin
     i:=0;
     write ('Введи название файла,в котором хранится матрица: ');
     readln (str1);
     assign (f1,str1);
     reset (f1);
     write ('Введи название файла: ');
     readln (str1);
     assign (f1,str1);
     rewrite (f1);
     while not eof(f1) do
      begin
         i:=i+1;
         notfinished:=false;
           while not eoln(f1) do
            begin

               while (c<chr(48) or c>chr(57)) do
                begin
                   if (notfinished=true) then
                   begin
                     val(element,converted,0);
                     x[i]:=x[i]+converted;
                   end;

                   read (f1,c);
                   notfinished:=false;
                   element:='';
                end;

               element:=element+c;
               notfinished:=true;

            end;
           readln (f1);
           writeln
      end;
     close (f1)
end.

и Второе задание на записи

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

данные по дискам:
-автор
-название
-издатель
-год издания
-цена(ЛС,т.е. в латах)
-посчитаннаяценность-возраст(в полных годах) (как я понимаю ценность этогопредмета,товара)

буду очень благодарна всем,кто откликнется и поможет исправить или изменить(создать свой) код к первому заданию и помочь сделать второе задание

[Novenkaja]

так кто-то может решить хоть одно из двух заданий или нет?
очень они нужны,крайний срок завтра

[GetMax]

Честно говоря, лениво было разбирать в твоем коде. Тем более что у тебя по заданию "считывает данные матрицы", а в программе почему то описан вектор. Вообщем все это будет выглядеть как то так:

Var
  F:Text;
  Matr:array[1..10,1..10] of Byte;
  i,j,m,n,k,Chislo,Sum:Byte;
  Error:Integer;
  St,bf:String;
begin
  Assign(F,'C:\Matrix.txt');
  Reset(F);
  Readln(F,m,n);  // число строк и столбцов матрицы. В файле они должны идти первой строкой
  i:=1;
  While Not EOF(F) do
  Begin
      Read(f,st); //читаем строку
      For k:=1 to Length(St) do
      If St[k] = ',' then Delete(St,k,1);//избавляемся в ней от запятых
      bf:='';
      j:=1;
      For k:=1 to Length(St) do  // разделяем строку на отдельные символы
      Begin
        If (St[k] <> ' ') and (k <= Length(St)) then bf:=bf+St[k];
        If (St[k] = ' ') or (k = Length(st)) then
        Begin
          Val(Bf,Chislo,Error); //преобразуем символы в числа
          Matr[i,j]:=Chislo;    // и пишем их в матрицу
          Write(Matr[i,j],' ');
          Inc(j); //новый столбец
          bf:=''
        End;
      End;
    inc(i);   //новая строка матрицы
    Writeln;
    Readln(F) //переходим на следующую строку в файле
  End;
  Close(F);
  Assign(F,'C:\Summa.txt');
  Rewrite(F);
  For i:=1 to M do
  Begin
    Sum:=0;
    For j:=1 to N do
    Sum:=Sum+Matr[i,j];// считаем сумму i-ой строки
    Writeln('Summa v ', i,' stroke = ',Sum); //выводим ее на экран
    Write(F,Sum,' ') // и в файл
  End;
  Close(F);
  Readln
End.

[Novenkaja]

он компилирует,я создала два файла с названиями matrix.txt и summa.txt а при нажатии на run-пишет exitcode...
почему?

[Alex11223]

exitcode-то какой? Файлы где создали? В корне диска С:? (C:\matrix.txt)

[Novenkaja]

папка с файлами находится на диске с
идёт так:
C:\Program Files\FPS\Projects-в это папке Projects хранится этот файл и там же я создалоа два файла Matrix.txt и Summa.txt а не идёт по рану (((

[Alex11223]

В этой программе путь указан к файлу в корне (C:\ без всяких папок) диска С. Если хотите использовать файлы из Projects, то либо уберите C:\, либо укажите путь к C:\Progra~1\FPS\Projects.

[Novenkaja]

вс равно не идёт

даже если я оставлю assign(F,'Matrix.txt')

[Alex11223]

А что пишет-то? В ошибке обычно указана причина ошибки)

[Novenkaja]

run time errorr-file not found