Помогите решить 2 задачки на Pascal

[Ecco]

Помогите решить 2 задачки на Pascal

Нужна помощь, помогите.

1)Поменять местами последнее совершенное и третье простое
2)в тексте из 20 строк определить количество знаков препинания в нечетных строках текста

 

[AlexZir]

Более конкретное описание заданий есть? В первом задании исходные данные какие? Во втором задании текст каким образом хранится? Что является признаком конца строки?

 

[Ecco]

Нет, это все задание

 

[Vladimir_S]

Нужна помощь, помогите.
1)Поменять местами последнее совершенное и третье простое

В чем?!! Отговорки типа "Не знаю, мне так дали" НЕ ПРИНИМАЮТСЯ. Уточняйте задание у преподавателя.

2)в тексте из 20 строк определить количество знаков препинания в нечетных строках текста

VAR
 F:TEXT;
 S:STRING;
 Num_Sig:ARRAY[1..10] of BYTE;
 i,j:Integer;

Function Sg(C:Char):BOOLEAN;
 Begin
  Sg:= (C=';') or (C=':') or (C='.') or (C=',') or (C='?')
             or (C='!') or (C='-') or (C='"');
 End;

BEGIN
 Assign(F, 'D:\xxx');
 ReSet(F);
 For i:=1 to 10 do
  begin
   Num_Sig[i]:=0;
   ReadLn(F,S);
   for j:=1 to Length(S) do
    if Sg(S[j]) then Inc(Num_Sig[i]);
   ReadLn(F);
   WriteLn('Number of punctuation marks in the string N',(2*i-1):2,' = ',Num_Sig[i]);
  end;
 ReadLn;
END.

Два комментария:
1. Предполагается, что текст находится на диске D: в файле по имени ххх. Поправьте, как Вам надо (первая строка основной программы).
2. Многоточие (...) как единый знак препинания не обрабатывается. Программа считает, что это три последовательных точки (обработка многоточия раздует программу в разы).