Переписать программу с Паскаля на Си

[VanyaB]

uses crt;
var s:string;
i:byte;
yes:boolean;
begin
clrscr;
yes:=true;
writeln('Vvedite stroky');
readln(s);
if not(length(s) in [1..26])or (pos('a',s)=0)then
begin
write('NET');
readln;
exit;
end;
for i:=1 to length(s) do
begin
if i<>length(s) then
if ord(s[i])-ord(s[i+1])<>-1 then yes:=false;
end;
if yes then writeln('DA')
else write('NET');
readln
end.

[digitalis]

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

  if ord(s[i])-ord(s[i+1])<>-1 then yes:=false;

у нормальных выглядит так, без всяких if'ов:

yes:= ord(s[i])-ord(s[i+1]) = -1 ;

Удалено цензурой

[evg_m]

нет, там

yes:=yes and ( ord(s[i])-ord(s[i+1]) =-1 );// цикл однако

а вот

 if i<>length(s) then

не нужен
достаточно чуть больше ограничить цикл

to length(s) -1

[digitalis]

Да, действительно.
Но в такой портянке разбираться - тоскливо. Потому и ...